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SECTION 1 
INTRODUCTION 


NECAP is a sophisticated building design and energy analysis tool 
which has embodied within it all of the latest ASHRAE state-of-the-art 
techniques for performing thermal load calculation and energy useage 
predictions. NECAP is actually a set of six (6) individual computer 
programs whose descriptions are given briefly below: 

1. RESPONSE FACTOR PROGRAM 

For wall or roof structures different from the typical ones 
built into NECAP, the Response Factor Program, using a layer-by- 
layer description of the surface, will calculate and output the 
set of response factors required to perform transient heat trans- 
fer analysis. 

2. DATA VERIFICATION PROGRAM 

The Data Verification Program interrogates the building descrip- 
tion input data to check for proper order, range and format of 
the card input data. 

3. THERMAL LOAD ANALYSIS PROGRAM 

Performs hourly transient heat transfer calculations for each 
building space utilizing actual hourly recorded weather, geometry 
and construction of the building, scheduled internal loads and 
astronoiny of the sun. 

4. VARIABLE TEMPERATURE PROGRAM 

Corrects the thermal loads calculated above to account for 
temperature swings occurring within each space due to thermostat 
action, equipment capacity and equipment scheduling. 

5. SYSTEM AND EQUIPMENT SIMULATION PROGRAM 

For a specified type of distribution system allocation and type 
of energy conversion equipment, the Simulation Program determines 
the total load on each distribution system, transfers it to the 
energy conversion equipment, and based upon part load efficiencies 
determines the building's monthly demand and consumption of all 
forms of fuels and energy. 

6. OWNING AND OPERATING COST PROGRAM 


For the expected life of the building, the Owning and Operating 
Cost Program calculates the expected annual expenditure to own 
and operate the building utility systems. 
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Each building design and analysis problem might not require use of 
all of the 6 programs enumerated above. To illustrate the suggested 
sequential use, refer to Figure 1.1. 

The remaining sections of this manual deal with each segment of 
NECAP and sets forth the algorithms that were programmed into each 
subroutine. 





Figure 1.1 NECAP FLOWCHART 
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SECTION 2 

RESPONSE FACTOR PROGRAM 


2.1 OBJECTIVE AND DESCRIPTION 


The Response Factor Program generates the set of heat transfer 
factors called response factors required to accurately determine 
the transient flow of heat into, through and out of building 
exterior walls and roofs as they react to temperature differences 
across them. These response factors are a function of the type of 
materials used and their order of placement and therfore require 
that the following be known for each layer: 

1. XL, thickness, ft. 

2. XK, thermal conductivity, BTU per (hr. )(ft. )(°F) 

3. D, density, lb. per cu. ft. 

4. SH, specific heat, BTU per (lb.) (®F) 

5. RES, Resistivity, (hr.)(sq.ft. )(®F) per BTU. 

Using this data, the Response Factor Program calculates the set 
of response factors peculiar to the wall or roof construction in 
question and then outputs this data onto punched computer cards 
for direct insertion into the Thermal Load Analysis Program input 
data deck. The Response Factor Program need not be used if all 
wall and roof types desired are among the standard walls and roofs 
built into the Thermal Load Analysis Program and available for use 
simply by the calling out of an input code. A flow chart explaining 
the use of the Response Factor Program is given in Figure 2.1. 

2.2 ALGORITHMS OF SUBROUTINES 


RESFAC 

and 

PER, FALSE. MATRIX, SLOPE, ZERO 

The calculation of the response factors involve a matrix- type 
solution of the Laplace transform of the heat conduction equation 
and inversion integral using the residue theorem, detail of which 
can be found in: 

1. "Conduction of Heat in Solids", by H. S. Carslaw and 
J. C. Jaeger, Second Edition, p. 326. 

2. "FORTRAN IV Program to Calculate Heat Flux Response Factors 
for a Multi-layer Slap", by G. P. Mitalas and J. G. Arseneault,^ 
NRC, June 1967. 

3. "Thermal Response Factors for Multi-layer Structures of Various 
Heat Conduction Systems", by T. Kusuda, ASHRAE, January, 1969. 
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Figure 2.1 RESPONSE FACTOR PROGRAM FLOWCHART 
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INPUT 


NOC : Number of surfaces to be analyzed 

NOL : Number of layers to be considered for the analysis 

of the particular wall or roof 


XK-- : Thermal conductivity of each layer, Btu/hr-ft-°F 

If the l 60 'er was no thermal mass, XK. = 0 
where i = 1 , 2 , . . , , NOL 

D- : Density of each layer, Ib/cu ft 

If the layer has no thermal mass, D. = 0 
where i = 1, 2, . . .. NOL 

SHi ; Specific heat of each layer, Btu/lb-“F 

If the layer has no thermal mass, SH. = 0 
where i = 1, 2, . . . , NOL 

XL.- : Thickness of each layer, ft 

If the layer has no thermal mass, XL- = 0 
where i = 1 , 2, . . . , NOL 

RESj : Thermal resistance of the layer which has no thermal 

mass, hr-sq ft-®F/Btu 
If the layer has thermal mass, RES. =0 
where i = 1 , 2, . . . ^ NOL 

DT : Time increment for the response factors calculation 

(set to 1 in program), hr. 

The sequence of inputting the values of above properties is impor- 
tant. It must follow the way each layer is laid one after another 
from the outside or exterior surface to the inside air. It should 
be noted that when the inside surface heat transfer coefficient FI 
is constant, it can be included as a single resistance on the inside 
of the last layer of wall. 

OUTPUT 

Y V . Response factors series for j = 1, 2, . . ., M where 

^i / ■ the value of M, number of the factors in the series. 

_ I depends upon the type of wall, roof or overhang floor 

^i ^ construction 

CR : Common ratio between successive terms of each series 

beyond M calculated by 
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Definitions of X, Y and Z Response Factors 


Consider the wall in Figure 2.2 and assume that the heat flow rate 
into side A is and the heat flow rate out of side B is Qg. 



If a unit pulse of temperature is applied to side A at time zero, 
the values of at times 0, 1, 2, . . . are called, respectively, 

Xq» X-|, X2» . . . and the values of Qb at times Oy; 1, 2, . . are 

called, respectively Yq, Y], V2 . . . . 

If a unit pulse of temperature is applied to side B at time zero, 
the values of Qg at times 0, 1, 2, . . . are called, respectively, 

Zq* Zi, Z2». . . and the values. of Q/\ at; times 0, 1, 2, . . . are 

callea, respectively Yq, Y^, ^ 2 * • • ♦ • 

Therefore : 

The time series Xg, X^, Xg, X3 . . . , or more briefly, X, is the 
heat flux at A due to a temperature disturbance at A. 

The time series Zg, Z^ , Zg, Zg . . . , or more briefly, Z, is the 
heat flux at B due to a temperature disturbance at B. 

The time series Yg. Y-j, Y2, Yg . . or more briefly. Y, is the 
heat flux at either side of the wall due to a temperature disturbance 
at the other side. 


These definitions are shown schematically in Figure 2.3 
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SECTION 3 

THERMAL LOAD ANALYSIS PROGRAM 
3.1 OBJECTIVE AND DESCRIPTION 


The Thermal Load Analysis Program, a complex of heat transfer, 
psychrometri c , and geometric subroutines, computes the thermal 
loads, both heating and cooling, resulting in each building space 
each hour due to: 

1. Transmission gains and losses through walls, roofs, floors 
and windows. 

2. Solar gains through windows. 

3. Internal gains from people, lights and building equipment. 

4. Infiltration gains and losses due to wind and thermal pressure 
differences across openings. 

5. Ventilation air gains and losses due to fresh air requirements. 

Using these capabilities, the Thermal Load Analysis Program can per- 
form two types of analysis: 

1. Design load analysis - Utilizing user-defined design weather 
data, a 24- hour design day analysis is done for each month to 
determine peak heating and cooling requirements for each space 
and the entire building. 

2. Hourly energy analysis - Utilizing actual hourly weather 
data, hourly heating and cooling loads for each space are 
calculated for an entire year of building operation and 
results stored on magnetic tape for use by other programs. 

The input to the Thermal Load Analysis Program reflects building 
architecture, building construction, building surroundings, local 
weather, and pertinent astronotry of the sun. The output consists of 
hourly weather and psychrometric data and hourly sensible loads, 
latent loads, return air lighting loads, and equipment and lighting 
power consumption for each building space. All calculations are 
performed in accordance with algorithms set forth by ASHRAE in their 
publication entitled "Procedures for Determining Heating and Cooling 
Loads for Computerized Energy Calculations". Figure 3.1 briefly depicts 
the overall methodology built into the Thermal Load Analysis Program. 
Table 3.1 gives a brief description of each subroutine making up the 
program. 



INPUT 


PROGRAM FUNCTION 


OUTPUT 


BUILDING 
DESCRIPTION 
CARD INPUT 


( BEGIN ) 

INPUT SEGMENT: 

READ "and ORGANIZE 
INPUT DATA 


INTERNAL PARTITION HEAT TRANSFER 



WEATHER 
TAPE 


\ 


JOB PROCESSING 
CONTROL 
SEGMENT-1 


> 


HOURLY ENERGY 
ANALYSIS SEGMENT 

1 

f 

JOB PROCESSING 
CONTROL 

SEGMENT-2 \ 



I 


C END ) 


OPTIONAL 

SHADOW 

PICTURES 


OPTIONAL 
HOURLY 
WEATHER 
& LOAD 
DATA 



SUMMARY REPORTS: 

• Design Analysis 
t Hourly Energy 
Consumption 
Analysis 


Figure 3.1 THERMAL LOAD ANALYSIS PROGRAM MACRO- 
FLOW DIAGRAM 
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TABLE 3.1 


THERMAL LOAD ANALYSIS PROGRAM SUBROUTINES 
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TABLE 3.1 CCONT'D) 
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There is a difference between thermal load calculation procedures 
for use in the design of the heating and cooling facilities and the 
procedures for estimates of energy requirements. The load calcula- 
tion procedure as described in the 1967 ASHRAE Handbook of Fundamentals 
is for the design calculation. It is valid for simplified design 
conditions that assume steady-state conditions (such as is largely 
the case for heating load calculations) or a steady periodic heat 
flow (as is the case for the cooling load calculation). 

The load calculated under these design conditions may be adequate 
for sizing or selecting heating and cooling equipment and systems, but 
it is unsatisfactory for predicting the actual hourly thermal loads. 

A good load calculation procedure for the determination of energy 
requirements should be able to predict the performance of the building 
heating and cooling system when combined with a total system simula- 
tion program under actual (randomly fluctuating) climatic and opera- 
ting conditions. 

An important distinction between the design load calculation and 
energy calculation, therefore, is that the former uses a single 
value while the latter generates a series of values or time series 
of thermal loads evaluated at every hour of the year. 

Since the load determination of energy requirements involves many 
more calculations as compared with an ordinary design load determina- 
tion, the use of a computer is considered mandatory. 

The Thermal Load Analysis Program uses a number of subroutines instead 
of a long continuous algorithm. The rationale behind this arrange- 
ment is as follows: 

(1) The subroutine algorithms are easier to describe and under- 
stand than a long and continuous algorithm of the whole 
program. 

(2) If required, it is easier for the user to alter, delete, or 
replace portions of his load calculation program. 

(3) Many of the subroutine algorithms can be made independently 
available for ma»y other heat transfer problems such as 
calculation of refrigeration load, heating and cooling of 
solid objects, temperature rise of a building wall during 
fire, propagation of smoke within a building and design of 
exterior shading devices of buildings. 

The basic scheme of the load calculation procedure is first to 
evaluate the instantaneous heat gains due to solar radiation and 
heat conduction as accurately as possible. These heat gains are 
then balanced with those due to infiltration, lighting and Other 
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Difference 
Across Wall, AT 


internal sources with a specific consideration that the sum of all of 
the instantaneous heat gains is not the instantaneous cooling load. 

The solar radiation is first absorbed by solid objects in the 
space and is not manifested as a cooling load until some time later. 
Exact evaluation of the space cooling load requires solution of a 
set of the heat balance equations for all the space surfaces, space 
air and space he^at gains. 

In order to simplify this calculation procedure, the weighting 
factor concept is introduced in such a manner that each heat gain 
contributes to the space cooling load through its own weighting 
factors. 

3.2 THE CONVOLUTION PRINCIPLE 

The program takes account of heat storage in the building's struc- 
ture by a mathematical device called the convolution principle. The 
example of heat gain through a thick wall will illustrate how the 
convolution principle works. 

The value of heat gain (Q) into the building through a thick wall, 
for a constant inside air temperature, depends on the present value, 
and the past history, of the temperature difference (AT) between 
the inside air and the outside surface of the wall. In other words, 
the graph of the schedule of Q versus time (t) depends on the graph 
of the schedule of aT versus t (see Figure 3.2). 




Figure 3.2 DEPENDENCE OF HEAT GAIN SCHEDULE ON 
TEMPERATURE DIFFERENCE SCHEDULE 
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Were it necessary to compute Q for each hour, on the basis of the 
hourly history of AT, the differential equation of heat conduction 
would have to be repeatedly solved by numerical methods, and the 
computation time would be prohibitive even with a fast computer. 
Fortunately, the problem can be simplified so that Q need be 
determined as a function of t for only one temperature difference 
schedule. The one temperature difference schedule for which the 
program must compute a heat gain schedule is called the triangular 
pulse, and the values of Q which the triangular pulse elicits, at 
successive equal time intervals after the peak of the pulse, are 
called the response factors (>"«,• r,, r^, . . .) of the wall 
(see Figure 3.3). 

Any arbitrary schedule of AT may be squared off to give a schedule 
of approximate temperature differences, AT' , whose values agree with 
those of AT at integral multiples of the time interval, 6. This 
schedule of approximate temperature differences, AT', may be resolved 
into a series of triangular pulses (aT-|, aTo, aTo, AT4, and AT5) which, 
when added together, give exactly AT'. Each of these component pulses 
has a base width, or duration, of 26, a peak occurring at each integral 
multiple of 6, and a height equal to the value of aT' at the time of 
the pulse's peak. Each such pulse alone would elicit its own schedule 
of heat gains as shown in Figure 3.4. The pulse AT2 would elicit Q2 
and so on. The heat gain schedules elicited by the individual pulses 
are all the same except for two differences. Their heights are pro- 
portional to the heights of the pulses which elicit them, and each 
is moved to the right, on the time axis, as far as the pulse which 
produced it. 

The values of the individual responses, . . . Q5, may be added 
at each value of time, to give the curve of sums. A mathematical 
principle known as the superposition theorem asserts that the 
curve of sums is exactly the heat gain schedule which would be 
elicited by the approximate temperature difference schedule, AT'. 

Due to the smoothing effect of the heat transfer process, AT and 
AT' give nearly the heat gain schedule elicited by the original 
temperature difference schedule, AT. This method of resolution and 
recombination is called the convolution principle. 

To the air conditioning engineer, the convolution principle means 
that the difficult problems of transient heat transfer can be solved, 
for each simulated hour, by adding and multiplying very few numbers. 

The convolution principle as applied to heat gain through a thick 
wall, is expressed mathematically by the equation. 


n 

= I 

i=0 


r . AT • • 
1 j-i 


(EQ. 1) 


where Qi equals the heat gain at the hour ■j equals the tempera- 

ture difference i hours previous to hour j; r-j equals the ith response 
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Figure 3.3 HEAT GAIN SCHEDULE FOR A TRIANGULAR TEMPERATURE 
PULSE SHOWING RESPONSE FACTORS 



PULSES 
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FIGURE a 
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FIGURE b 


TIME 
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FIGURE C 


TIME 
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FIGURE d 
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A 


FIGURE e 
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A 


FIGURE f 



TIME TIME 

THIRD COMPONENT PULSE AND HEAT GAIN IT ELICITS 
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FIGURE g 




TIME TIME 

FOURTH COMPONENT PULSE AND HEAT GAIN IT ELICITS 
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FIGURE h 


TIME TIME 

FIFTH COMPONENT PULSE AND HEAT GAIN IT ELICITS 
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CURVE OF SUMS 
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TIME 



Figure 3.4 THE CONVOLUTION PRINCIPLE 
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factor for the wall; and n equals the number of hours of the tempera- 
ture difference history which significantly effect Qj. Notice that 
the response factors are the only information about the wall which 
appears in equation 1. Thus, the response factors, characterize 
completely the thermal properties of the structure of the wall and, 
alone describe how the structure-' absorbs and releases heat over a 
prolonged period of time. 

The program allows the user to specify either actual thermal data - 
that is, layer by layer thicknesses, conductivities, and specific 
heats - which the program will convert to response factors, or the 
response factors themselves. Tables of response factors are now 
available for a variety of structures. Where neither the layer 
by layer thermal data nor the response factors of a wall or roof are 
known, a feature is available to generate approximate response 
factors from these simplified data: U-f actor conditions (summer or 

winter to which the U-factor applies; material of outside layer, and 
thickness of insulation, if present. The wall and roof construction 
subroutine works by selecting a wall or roof construction from a 
stored library of constructions standardized by ASHRAE, to fit the 
simplified data. The load program uses the response factors of 
the selected construction. 

A cost saving feature of the Load Program is the use of a 
subtle modification of equation 1 which allows n to equal infinity 
while saving a good deal of computer time. That is, all previous 
hours of the temperature difference schedule are taken into account - 
very inexpensively. 

The Load Program uses the convolution principle for the following 
three purposes. 

1. To compute the exterior surface temperature of a thick wall 
at each simulated hour on the basis of past temperatures and 
present radiation and convection data. 

2. To compute heat gain as already described. 

3. To compute the time delay between heat gain to a space and 
the resulting loads on the air conditioning system. In this 
last case, the series of numbers which characterizes the 
structures (room furnishings, floors, partitions) are called 
room weighting factors, rather than response factors. 

To summarize, the convolution principle is used by the thermal load 
analysis program to simulate, with great accuracy, the transient heat 
conduction taking place within the structures of the building. Various 
experiments with the program indicate that the convolution principle, 
when used in heating and cooling load calculations, gives more realistic 
values of the maximum loads and more accurate estimates of the times 
of their occurrence. For example, the program shows that maximum 
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cooling loads occur several hours after the hottest time of the day, 
at which time some buildings are unoccupied. For practical purposes, 
this means that the equipment specified with the help of the program 
will be smaller than equipment specified as a result of hand compu- 
tation, and that the elusive demand figures for utility services can 
be determined accurately, allowing a realistic estimation of energy 
costs . 

3.3 MAIN ROUTINE ALGORITHMS 


The main routine of the Thermal Load Analysis Program is divided 
into five segments whose relationship is expressed graphically in 
Figure 3.1. These segments are as -follows: 

• Building input 

• Internal partition heat transfer 

• Job Processing Control -1 

• Hourly energy analysis 

t Job Processing Control -2 

3.3.1 Building Input Segment : Read and Organize Building 
Description Data 

In this segment of the program, building description information 
is read into the program and organized for processing by segments 
which follow. A summary of card input data requirements (with card 
type numbers in parentheses) is given below. Refer to the User's 
Manual for a complete listing and discussion of card input variables. 

READ - identifiers (LC-1,5) 

- general program control variables (LC-6,10) 

- schedules [people, lighting, and equipment] (LC-11,13) 

• standard (built into program) 

• specific (card input) 

READ - common shading polygons (LC-14,16')^ 

• short form 
0 long form 

READ - delayed surfaces (LC-17,29) 

0 response factors 

- standard (built into program) 

- specific (card input) 

0 general characteristics 

0 geometry 

- short form 

- long form 

0 deleted common shading surfaces 
0 added shading to specific delayed surface 

- short form 

- long form 
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# pictorial output, delayed surface 


READ - quick surfaces (LC-30,38) 
t general characteristics 

• geometry'*"'' 

- short form , 

- long form 

• deleted common shading surfaces 

• added shading surfaces to specific quick surface^ 

- short form 

- long form 

t pictorial output, quick surface 

READ - glazed surfaces (LC-39,47) 

• general characteristics 

• geometry ■*"'' 

- short form 

- long form 

• deleted common shading surfaces 

• added shading surfaces to specific glazed surface^ 

- short form 

- long form 

• pictorial output, glazed surface 

READ - internal heat transfer surfaces (LC-48,49) 

• area, U-value, adjoining space numbers 

READ - underground walls (LC-50,51) 

• area, U-value 

READ - underground floors (LC-52,53) 

• area, U-value 

READ - ground temperatures for each month (LC-54) 

READ - zone description (LC-55,56) 

§ area of floor, volume, weight of floor 

• setpoint temperature 

t people, lights, equipment peaks and associated schedules 

• infiltration 

• indices of previously described heat transfer surfaces 

- delayed 

- quick 

- glazed 

- internal surfaces 

- underground walls 

- underground floors 

BEGIN THERMAL ANALYSIS 

++ Refer to Figure 3.5 which indicates how polygons are read in and input 
data organized by the program for later processing. 
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( Enter ) 



Heat Transfer 
Surface 


/ READ: 

characteristics 
of delayed, quick 
or glazed surface 



Long 


Form 


Applies to : 

1. Common shading sur- 
faces 

2 . Delayed heat transfer 
surfaces 

3. Shading surfaces added 
to specific delayed 
surfaces 

4. Quick heat transfer 
surfaces 

5. Shading surfaces added 
to specific quick sur- 
faces 

6. Glazed heat transfer 
surfaces 

7. Shading surfaces added 
to specific glazed 
surfaces 


1 


READ: Height, 
Width, Orienta- 
tion, etc. 


READ: X,Y,Z 
Coordinates 
of Vertices 


t 


Convert to 
X, Y, Z Coor- 
dinate System 


I 


( ConTinue^ 


Figure 3.5 POLYGON INPUT FLOW DIAGRAM 
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3.3.2 Calculate Heat Transfer Through Internal 
Partitions (QIHTS ^T 

QIHTS. = Z CFIHTSjj * (TSPAC^j- TSPAC.)];jj = 1, NIHTS 
where 

1 - is a subscript referring to the space 

FIHTS.^ - heat transfer factor (Btu/hr-°F-sq ft) 

NIHTS - number of internal partitions, space i 

TSPAC^ - setpoint temperature, space i (°F) 

TSPAC j.- setpoint temperature of space on other 
^ side of partition (®F) 

3.3.3 Job Processing Control Segment-! 

If design run is to be done, set up summer design day 
dry and wet-bulb temperature arrays (TDBSUM, TWBSUM) for March by 
calling subroutine DESDY. 

Initialize building and space peak load and peak load thermal 
characteristics. 


BHMAX 

BCMAX 

SSHMAX^. 

STCMAX. 

qCBLDG^^ 

QHBLOG^^ 


QSUM 

QWIN. 


Al ,A2 


= 0 
= 0 
= 0 
= 0 
= 0 
= 0 
= 0 
= 0 


Al,A2 

BEGIN HOURLY CALCULATION 


3.3.4 Hourly Energy Analysis Segment 

Refer to Figure 3.6 for Hourly Energy Analysis Segment 
Flow Diagram. 

• initialize flags which indicate if heat transfer through a 
surface has already been calculated for this hour 
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Figure 3.6 THERMAL LOAD ANALYSIS PROGRAM. HOURLY ENERGY 
ANALYSIS SEGMENT FLOW DIAGRAM 
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ICALD^. = 0 (delayed surfaces) 

ICALQ^. = 0 (quick surfaces) 

ICALW^. = 0 (glazed surfaces) 

• net hour number 

IHOURP = I HOUR - JSTART + 1 

• initialize test case variables 'for maximum building heating 
and cooling loads and characteristics 

BHEATT = 0 

BCOOLT = 0 

QCCOMP.^^ = 0 

QHCOMP.^^ = 0 (where icc = 1,17) 

• establish time references for this hour 

IDOY - day of year 
ITIME - time of day 
t if ITIME =1 (i.e., 1 AM) 

1. Call subroutine SUNl to calculate: 

SUNRAS - hour angle when solar altitude is zero 
DEABC(l) - tangent of declination angle 
DEABC(2) - equation of time, ET (hours) 

DEABC(3) - apparent solar constant (350-390 Btu/hr-ft^) 
DEABC(4) - atmospheric extinction coefficient (air mass”^) 

DEABC(5) - sky diffuse factor 

2. Call subroutine DAYMO to calculate day of the month and 
month of the year. 

3. Establish value of CN (Clearness Number) = CNS (summer) 

= CNW (winter) 

4. Call subroutine DST to determine whether or not Daylight 
Saving Time is in effect. 
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5. In the first hour of the run, call function NDOW to 
establish the day of the week (I DAY). 

6. Call subroutine HOLDAY to establish if the day is a 
holiday. 

• calculate hour angle for current hour (HANG, radians) 

t if Design Load Analysis, by-pass day type flag and weather tape 
call. Define hourly weather from design load weather tables. 

• if Energy Consumption Analysis, 

1) Call subroutine SCHED to determine type of schedules for 
this day. 

2) Call subroutine WEATHR to read weather data from input tape. 

• call subroutine PSY to calculate outside air psychrometric 
conditions: 

HUMRAT - Humidity Ratio (lbs H20/lbm-dry air) 

ENTH - Enthalpy (Btu/lbm-air) 

DENS - Density (Ibsm/ft^) 

• if 1 HANG I ± I SUNRAS |, sun above horizon 
01 = 0 

Call subroutine SUN2 to calculate: 

RAYCOSjj Y 2 - solar angle direction cosines (X,Y,Z) 

RDN - direct normal radiation (Btu/hr-ft^) 

BS - sky brightness 

SA - sine of building azimuth (Sin(BAZ)) 

CA - cosine of building azimuth (Cos(BAZ)) 

If Energy Consumption Analysis, call subroutine CCM to 
calculate cloud cover modifier (CC) and adjust RDN and BS. 

RDN = RDN * CC 

BS = BS * CC 

• if I HANG I ^ I SUNRAS |, sun below horizon. 

01 = 1 
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Call subroutine CCM to calculate cloud cover modifier (CC). 

BS = 0 
BG = 0 

BEGIN SPACE LOAD CALCULATION (repeat for each space) 
t calculate ground temperature. 

TGROND = TGRND^^^^+ 460.0 

• underground wall heat transfer 

QUW^ = z [FUW.^. * (TGROND - TSPAC^)] for ii = 1. NUW^ 

• delayed surface heat transfer (repeat for each delayed surface 
of zone i) 

If I HANG I £ I SUNRAS |. sun above horizon. 

Call subroutine SUN3 to calculate: 

GAMMA - cosine of surface tilt angle (Cos(WT)) 

ETA - angle of incidence of direct solar ray upon surface 

RDIR - direct solar radiation incident upon surface 

RDIF - diffuse solar radiation incident upon surface 

RTOT - direct + diffuse solar radiation 

BG - ground brightness (Btu/hr-ft ) 

Check if picture is to be made of this surface (pictures may 
be printed on the first day of the month). 

Call subroutine SEARCH to determine if a shadow picture is 
cal 1 ed . 

Set up deleted common shading polygon array (ILETE) for 
subroutine SHADOW^. 

Set up added shading surface arrays (XA, YA, ZA) for subroutine 
SHADOW. 

Call subroutine SHADOW to calculate the percent of a surface 
which is shaded and. if desired, to print a shadow picture of 
the surface. 
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• Calculate solar radiation on delayed surface. 

If I HANG I > I SUNRAS |, sun below horizon. 

Solar radiation on surface = 0 

Call subroutine FILM to calculate heat transfer coefficient 
of the outside air film. 

Call subroutine HD to calculate heat transfer through delayed 
surfaces. 

Sum heat transfer through delayed surfaces, zone i. 

• Quick surface heat transfer (repeat for each quick surface of 
zone i ) . 

If I HANG 1 £ I SUNRAS |, sun above horizon. 

Call subroutine SUNS to calculate solar radiation characteristics 
on quick heat transfer surface. 

Check if picture is to be made of this surface (pictures are 
done for the first day of the month). Call subroutine SEARCH 
to determine if a picture is to be made. 

Set up deleted COMMON shading polygon array (ILETE) for 
subroutine SHADOW. 

Set up added shading surface arrays (XA, YA, ZA) for subroutine 
SHADOW. 

Call subroutine SHADOW to calculate the percent of a surface 
which is shaded and, if requested, to print a shadow picture 
of the surface. 

If I HANG I > 1 SUNRAS |, sun below horizon. 

Solar radiation on surface = 0 

Call subroutine FILM to calculate heat transfer coefficient of 
the outside air film. 

Call subroutine HQ to calculate heat transfer through quick 
surfaces. 

Sum heat transfer thrqugh quick surfaces, zone i. 

• Glazed surface heat transfer (repeat for each glazed surface of 
zone i). 

If I HANG 1 £ I SUNRAS | , sun above horizon. 

Call subroutine SUNS to calculate solar radiation characteristics 
on glazed heat transfer surface. 
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Check if picture is to be made of this surface. Call sub- 
routine SEARCH to do this. 

Set up deleted common shading polygon array (ILETE) for 
subroutine SHADOW. 

Set up added shading surface arrays (XA, YA, ZA) for sub- 
routine SHADOW. 

Call subroutine SHADOW to Calculate the percent of a surface 
which is shaded and, if requested, to print a shadow picture 
of the surface. 

Call subroutine TAR to calculate transmission, absorption, and 
reflection of solar radiation through single and dual glazing. 

If I HANG I > I SUNRAS |, sun below horizon. 

Solar radiation on surface = 0 

Call subroutine FILM to calculate heat transfer coefficient of 
the outside air film. 

Call subroutine SHG to calculate heat transfer through glazed 
surfaces. 

Sum heat transfer through glazed surfaces, zone i. 

• Calculate people loads. 

People, sensible 

QPS = 28 + Qp(266.4 - 10.25 * Qp) + (T-460.) * (1.2-Qp * 
(3.07 - 0.128 * Qp) 

People, latent 

QPL = 206. - Qp(214.9 - 13.8 * Qp) - (T-460.)* (6.7 - 
Qp * (4.44 - 0.222 * Qp)) 

where Qp - activity levels of occupants (Btu/hr) ' 

T - space temperature (°F) 

• Sum thermal loads entering zone at current hour. 

Solar radiation (HINEW) 

HI NEW = QRAD 

where QRAD - sum of instantaneous solar radiation into zone. 
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Transmission and internal loads (H2NEW) 

H2NEW - Qgqg * SCHED^^ + ^dwall ^ ^qwall ^ ^dceil * %ceil 
+ Q, + + QPS * SCHEDp^^ * NFOLK + 

where Q - peak equipment sensible heat (Btu/hr) 

SCHEDg^- equipment part load operation schedule 

Q^..,n - sum of delayed wall surface heat transfer 
(Btu/hr) 

Q«..,n - sum of quick wall surface heat transfer 
‘I"*" (Btu/hr) 

Qrir.a -51 “ sum of delayed ceiling surface heat 
^ transfer (Btu/hr) 

- sum of quick ceiling surface heat transfer 
(Btu/hr) 

Q - sum of quick underground surface heat 
“ transfer (Btu/hr) 

" Sum of internal partitions heat transfer 
(Btu/hr) 

QPS - Sensible heat given off by one person 
(Btu/hr) 

SCHEDpgQ- Occupancy part load schedule 

NFOLK - Maximum number of people in the space 

Q . - Sum of conduction heat transfer through 

glazed surfaces 

Light heat (H3NEW) 

H3NEW = 3413. * SCHED^ *PLITE 

where SCHED,.^ - Internal lighting part load operation 

schedule 

PLITE - Peak lighting power of the space (KW) 

• Call subroutine HL to calculate thermal loads to room air 
and plenum air by adjusting instantaneous loads by the 
proper weighting factors. 
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t Call subroutine INF to calculate sensible and latent 
infiltration thermal loads 

• Sura latent space loads (HLAT) 

HLAT = QPL ♦ SCHEDpgQ * NFOLK + * SCHEDg^ + 

• If energy consumption run, write weather and zone data to 
output tape and line printer (line printer write optional). 

• Call subroutine QMAX to sum zone loads and calculate peak 
loads and thermal characteristics at peak conditions. 

END OF SPACE LOAD CALCULATION. 

• Calculate building peak loads and associated thermal con- 
ditions. 

. END HOURLY CALCULATION 

• Job processing control Segment-2 (see para. 3.3.5) 

• Call output report subroutines 

• Rewind input and output tapes of energy consumption analysis. 


3.3.5 Job Processing Control (JPC) Segment-2 

The thermal load analysis program may be operated in three 
modes as defined by input variable CODE (see input card type LC-7) 

1. Design load analysis only. 

2. Design load analysis and hourly energy analysis. 

3. Hourly energy analysis only. 

The above-mentioned types of analysis are accomplished by multiple 
passes through the hourl/ Analysis segment of the program. The job 
processing control (JPC) segment governs the mode in which the hourly 
energy analysis segment is used. 

If CODE = 1. (design load analysis only), let: KODE = 1, summer 
design day analyses for the months of March through 
November are performed. 

KODE = 2, winter design day analysis for the month of 
December is performed. 
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If CODE = 2, (design load analysis and hourly energy analysis), 
let: 

KODE = 2 ’] ^ 

KODE = 3, hourly energy consumption analysis for 
the period specified. 


If CODE = 3, (hourly energy analysis only), 

KODE = 3, hourly energy consumption analysis for 
the period specified. 


3.4 ALGORITHMS OF SUBROUTINES 


APOL 


A geometry subroutine which calculates, for a polygon of known 
vertices, its area, tilt angle ('\. angle from zenith) and azimuth angle of 
the right-handed normal. 


INPUT 


xi, y^, z. 




OUTPUT 


AREA 

TILT 

AZIM 


Number of vertices 


Coordinates of vertices, ft 


2 

Area of polygon, ft 

Tilt angle (<v angle from zenith), degrees 

Azimuth angle of the right-handed normal, degrees, 
clockwise from y axis 


CALCULATION SEQUENCE 


1 . AREA = 

A= |A| = 

1 " 

2 1=1 

(^1 * V 

where 

j = i + 1 

when i < 

n 


j = 1 

when i = 

n 


-y -> 




Vi, Vj, ... 

position 

vectors of the vertices 
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1 n 

2. XCOMP = j (y^Zj - y^z^) 

YCOMP =1 (z/j - ZjX,) 


ZCOMP = ^ (x,.yj - Xjy,) 


3. 

TILT 

= Cos'^ (ZCOMP/A) 

4. 

PROJ 

= 'Y(XC0MP)2 + (YCOMP) 2 

5. 

If PROJ 

« A AZIM = 0.0 

6. 

If PROJ is appreciable compared to A, use the proper 
equation given in Table 3,2for the calculation of AZIM. 


TABLE 3.2 


EQUATIONS FOR THE CALCULATION OF AZIM 



CCM 

A subroutine which calculates as a function of solar altitude angle, 
cloud type and total cloud amount, the coefficients for modifying solar 
radiation intensity which are calculated for a clear atmosphere. 

INPUT 

AL : Solar altitude angle, radians 

[ 0 Cirrus, Cirrostratus 
1 Stratus 
2 Other 

ICLD : Weather Bureau total cloud amount index 
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OUTPUT 


CC : Cloud Cover Modifier 
CALCULATION SEQUENCE 

The values of CC as a function of AL, ICLTP and ICLD are given in 
Table 3.3, which is derived from Boeing Company Report, "Summary of 
Solar Radiation Observation D2-90577-1, December 1964". 


TABLE 3.3 


CLOUD COVER MODIFIER, CC 


ICLTP-*- 

STRATUS 

CIRRUS, CIRROSTRATUS 

ICLD^ 

AL < 45° 

AL > 45° 

AL < 45° 

AL > 45° 

1 

.60 

.88 

.84 

1. 

2 

.60 

.88 

.83 

1. 

3 

.58 

.88 

.83 

1. 

4 

.58 

.87 

.82 

1. 

5 

.57 

.85 

.80 

.99 

6 

.53 

.83 

.77 

.98 

7 

.49 

.79 

.74 

.95 

8 

.43 

.73 

.67 

.90 

9 

.35 

.61 

.60 

.84 

10 

,27 

.46 

.49 

.74 


The values in Table 3.3 are curve fitted and the coefficients 
calculated. 

1. SQ = ICLD * ICLD 

2a. STRATUS CLOUDS, AL <45° (0.707=Cos of 45°) 

CC = 0.598 + 0.00026 * ICLD + 0.00021 * SQ - 0.00035 

* ICLD * SQ 
2b. STRATUS CLOUDS, AL > 45° 

CC = 0.908 - 0.03214 * ICLD + 0.0102 * SQ - 0.00114 

* ICLD * SQ 
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3a. CIRRUS, CIRROSTRATUS CLOUDS, AL < 45° 

CC = 0.849 - 0.01277 * ICLD + 0.00360 * SQ - 0.00059 

* ICLD * SQ 

3b. CIRRUS, CIRROSTRATUS CLOUDS, AL > 45° 

CC = 1.010 - 0.01394 * ICLD + 0.00553 * SQ - 0.00068 

* ICLD * SQ 

4. Other than Cirrus, Cirrostratus and Stratus clouds, use 
average value of CC for ICLTP = 0 and 1. 

CENTER 

A subroutine which centers titles, names, etc. for output pages 


of reports. 


INPUT 


IDEN 

: Left-justified title, name, etc. 

KODE 

: processing Indicator 

KAGIT 

: print output device 

OUTPUT 


IDEN 

: Centered title, name, etc. 


CALCULATION SEQUENCE 

1. Check IDEN column -by- column to determine number of blanks 
at righthand. 

2. Reallocate IDEN In field with half of blanks of either side. 

3. Print IDEN on output device KAGIT. 

4. If KODE > 3, write IDEN onto output device 2. 

DAYMO 

A calendar subroutine which identifies the day of the month and 
the month of the year. 
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INPUT 


LEAP : Leap year Index =[? 

IDOY : Day of the year, from start of year 

OUTPUT 

I DAY : Day of the month 

MONTH : Month of the year 

CALCULATION SEQUENCE 

1. If IDOY < 31, MONTH = 1 and IDAY = IDOY 

2. If 31 < IDOY < (59 + LEAP), MONTH = 2, IDAY = IDOY - 31 

3. If (59 + LEAP) < IDOY < (90 + LEAP), MONTH = 3, 

IDAY = IDOY - 59 - LEAP 

4. If (90 + LEAP) < IDOY < (120 + LEAP), MONTH = 4, 

IDAY = IDOY - 90 - LEAP 

5. If (120 + LEAP) < IDOY < (151 + LEAP), MONTH 5, 

IDAY = IDOY - 120 - LEAP 

6. If (151 + LEAP) < IDOY < (181 + LEAP), MONTH = 6, 

IDAY = IDOY - 151 - LEAP 

7. If (181 + LEAP) < IDOY < (212 + LEAP), MONTH = 7, 

IDAY = IDOY - 181 - LEAP 

8. If (212 + LEAP) < IDOY < (243 + LEAP), MONTH = 8, 

IDAY = IDOY - 212 - LEAP 

9. If (243 + LEAP) < IDOY < (273 + LEAP), MONTH 9, 

IDAY = IDOY - 243 - LEAP 

10. If (273 + LEAP) < IDOY < (304 + LEAP), MONTH 10, 

IDAY = IDOY - 273 - LEAP 
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n. If (304 + LEAP) < IDOY < (334 + LEAP), MONTH = 11, 

I DAY = IDOY - 304 - LEAP 

12. IF (334 + LEAP) < IDOY, MONTH = 12 IDAY = IDOY - 334 - LEAP 

DST 

A subroutine which determines Daylight Saving Time and the date 
when it commences and when Standard .Time resumes. 


: Year AD 

: Month of the year 
: Day of the month 

\0-Standard Time 

: The Dayling Saving Time indicator Saving 

/ Time period 

: The day when Daylight Saving Time commences 

: The day when Standard Time resumes 
CALCULATION SEQUENCE 

1. If MONTH is less than 4 and greater than 10, I DST = 0 

2. If MONTH is greater than 4 and less than 10, IDST = 1 

3. If MONTH = 4 and IDAY is less than 24, IDST = 0 

4a. If MONTH = 4 and IDAY is greater than 23, find JDAY > 23 

for which DAY OF THE WEEK = NDOW (JAHR, 4, IDAY) is equal 
to 1 , DSTS = JDAY. 

4b. If IDAY is less than DSTS, IDST = 0; otherwise, IDST = 1 

5. If MONTH = 10 and IDAY is less than 25, IDST = 1 

6a. If MONTH = 10 and IDAY is greater than 24, find JDAY >24 

for which DAY OF THE WEEK = NDOW (JAHR, 10, IDAY) is equal 
to 1, DSTF = JDAY. 

6b. If IDAY is less than DSTF, IDST = 1; otherwise, IDST = 0 


INPUT 

JAHR 

MONTH 

IDAY 

OUTPUT 

IDST 

DSTS 

DSTF 
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DESDY 


A subroutine for calculating design hourly dry-bulb and wet-bulb 
temperature for months other than the design sunmer and winter months 
using Carrier temperature correction factors. 

INPUT 


W)NTH : Month number, 1 to 12 


TMAX 

TMIN 

TDEW 

TWIN 

PATH 


Maximum dry-bulb temperature for summer design 
day. °F 

Minimum dry-bulb temperature for summer design 
day, op 

Average dew point temperature for sunmer design 
day, op 

Minimum dry-bulb temperature for winter design 
day. op 

Atmospheric pressure, inches of mercury 


OUTPUT 

TDB 

TWB 

DEN 

lER 


REFERENCE 


Hourly dry-bulb temperature for design day, °F 
Hourly wet-bulb temperature for design day, °F 


Density of air at 3 PM hour, lb per cu ft 


Error indicator, 


0 Summer design day calculation 
successful 

1 Winter design day calculation 
successful 

2 Correction had to be made to 
wet-bulb calculation for at 
least one hour 


"Handbook of Air Conditioning System Design", Carrier Corporation 
Chapter 2, Design Conditions. 


Table 2 - Corrections in Outdoor Design Temperature for Time of 
Day. 

Table 3 - Corrections in Outdoor Design Conditions for Time of 
Day. 
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CALCULATION SEQUENCE 


1. Let the following define the correction factors as listed 
in subject reference. 


a) 


b) 


c) 


d) 


IDDl - 

DBT 

correction 

factors 

for 

1 AM hour 

IDD2 - 

• 

DBT 

• 

correction 

• 

factors 

for 

• 

2 AM hour 

• • 

IDD24- 

• • 

DBT correction 

• 

factors 

for 

• • 

12 midnite 

IDWl - 

WBT 

correction 

factors 

for 

1 AM hour 

IDW2 - 

• 

WBT 

• 

correction 

• 

factors 

• 

for 

• 

2 AM hour 

• • 

IDW24- 

WBT 

• 

correction 

« 

factors 

• 

for 

• • 

12 midnite 

IMDl - 

DBT 

correction 

factors 

for 

March 

IMD2 - 

II 

11 

II 

11 

April 

3 - 

11 

II 

11 

II 

May 

4 - 

II 

II 

II 

II 

June 

5 - 

II 

II 

11 

II 

July 

6 - 

It 

II 

II 

II 

August 

7 - 

It 

M 

II 

II 

September 

8 - 

tl 

II 

II 

II 

October 

9 - 

W 

It 

11 

II 

November 

IMWl - 

WBT correction 

factors 

for 

March 

IMW2 - 

II 

II 

II 

II 

April 

3 - 

11 

II 

II 

II 

May 

4 - 

Ij 

II 

11 

II 

June 

5 - 

II 

II 

11 

II 

July 

6 - 

II 

II 

11 

II 

August 

7 - 

II 

II 

11 

II 

September 

8 - 

II 

II 

II 

II 

October 

9 - 

11 

II 

II 

II 

November 
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2. Initialize correction factors 


CORMl =0.0 Month correction for DBT 
C0RM2 =0.0 Month correction for WBT 
CORDl =0.0 Day correction for DBT 
C0RD2 =0.0 Day correction for WBT 

3. Calculate Month index 

If March, M = 1 

If April, M=2 

If May, M = 3 

If June, M = 4 

If July. M = 5 

If August, M = 6 
If September, M = 7 
If October, M = 8 
If November, M = 9 

4. Calculate index corresponding to yearly temperature range 

RY = TMAX - TMIN 
If RY 1 50, L = 1 
50 < RY < 55, L = 2 
55 < RY i 60, L = 3 

RY < 115, L = 15 

5. Calculate index corresponding to daily temperature range 

RD = TMAX - TMIN 
If RD 5 10, K = 1 

10 < RD 5 15, K = 2 

RD i 45, K = 8 
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6. For months March through November; 

a) Set CORMl = IC0RM(L,M.l) 

C0RM2 = ICORM(L,M,2) 

b) Call PSY to get W, the humidity ratio, at the 
dew point temperature. 

c) Calculate enthalpy at 3 PM, using TMAX and W. 

H = 0.24 * TMAX + (1061. + 0.444 * TMAX) * W 

d) Call WBF to get wet-bulb temperature, TWREF, 
corresponding to enthalpy H. 

e) Calculate DBT and WBT for 3 PM and call PSY to 
get DEN. 

CORDl = IC0RD(K,15,1) 

C0RD2 = IC0RD(K,15,2) 

TDNEW = TMAX - CORMl - CORDl 

TWNEW = TWREF - C0RM2 - C0RD2 

Call PSY (TDNEW, TWNEW, TDEW, PATM, W, H, DEN) 

f) For hours I = 1 to 24, repeat the following: 

CORDl = IC0RD(K,I,1) 

C0RD2 = IC0RD(K,I,2) 

TDB(J)= TMAX - CORMl - CORDl 
H = 0.24 * TDB(I) + (1061. + 0.444 * TDB(J) * W 
TWB(I) = WBF(H,PATM) 

If (TWB(J)+3) 1 TDB(I), set 
TWB(I) = TDB(I) - 3 

7. For months January, February and December, generate 

24 hours of design weather using following approximation: 

a) Let PI = 3.14 

ALFA = PI/12.0 
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BETA " 2.0 * ALFA 


GAMA = PI/2.4 

TETA = 2.0 * GAMA 

A = (TMAX-TMIN) * COS(TETA) 

B = 0.5 * (TMAX-TMIN) * COS(GAMA) 

C = C0S(GAMA)*SIN(TETA)-2.0*C0S(TETA)* 

SIN (GAMA) 

b) For hours 1=1 to 24, repeat following: 

TDB(I) = 0.5 * (TMAX + TMIN) - (A * SIN(ALFA * 
(I-10)))/L + (B*SIN(BETA*(I-10))) 

H = 0.24 * TDB(J)+(1061. + 0.444 * 

TDB(I)) * W 
TWB(I) = WBF(H.PATM) 

If (TWB(I)+3) < TDB(I), set 
TWB(I) = TDB(I) - 3 
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FILM 


A subroutine which determines the outside surface heat transfer co- 
efficient as a function of wind velocity and the type of surface con- 
structions. 


INPUT 

V 

IS 


OUTPUT 

FO 


Wind velocity, mph 
Exterior surface index 


Stucco 

Brick and rough plaster 

Concrete 

Clear pine 

Smooth plaster 

Glass, white paint on pine 



Outside surface heat transfer coefficient, 
Btu/hr-sq ft-OF 


CALCULATION SEQUENCE 

FO = A*V^+B*V+C 


The values of A, B, and C as a function of type of exterior surface 
are given in Table 3.4 


TABLE 3.4 


VALUES OF A, B, AND C FOR CALCULATION 
OF OUTSIDE HEAT TRANSFER COEFFICIENT 


IS 

A(IS) 

B(IS) 

C(IS) 

1 

0 

0.535 

2.04 

2 

0.001329 

0.369 

2.20 

3 

0 

0.380 

1.90 

4 

-0.002658 

0.363 

1.45 

5 

0 

0.281 

1.80 

6 

-0.001661 

0.302 

1.45 
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HO 


A subroutine which computes the heat transferred into a space 
from an outside opaque thick wall (or roof). This is accomplished^ 
using the Y response factors and the history of the wall's outside 
surface temperature. This history of TO^ includes the present 
temperature, TO-j, which must be computed using the X response factors 

. INPUT 


*1 


Self response factors, BTU/HR - sq. ft. - ®F 


Transfer response factors, BTU/HR - sq. ft. - ®F 


IR 


Number of response factor terms 


RATOS 


Common ratio 


FO 


Overall film coefficient for the outside surface of 
wall (includes convection and long wave radiation), 
BTU/HR - sq ft - °F 


A 


Cosine of angle between zenith and outward normal 
of wall. 


CC 

TM 

TDB 


Total cloud amount index (previously called ICLD 
in subroutine CCM). 

Constant space temperature, °R 

Ambient outside air dry-bulb temperature, ®R 

Outside wall surface temperature history, 

(TO. is present outside wall surface temperature), 
°R,^ 


AB : Absorptivity of outside surface of wallto 

radiation in solar spectrum 


SOLI 


Total solar radiation intensity, BTU/HR - sq.ft. 


SUMN 

SUMR 

QN 

QR 


0 

/ For previous hour; 

: I Used to accomplish the recursive summation 
/of the response factors and outside surface 
: f temperature 


l3 
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OUTPUT 


Q : Space heat gain (+) or loss (-) per unit area 

of surface, BTU/HR - Sq. ft. 


QR 

QN 

SUMN 

SUMR 


. [ For Present Hour; 

‘Vused to accomplish the recursive summation 
. f of the response factors and outside surface 
* I Temperature. 



Using the diagram given in Figure 3.7 
may be constructed as follows; 

By the use of response factors: 
Outside " ^^°i " ™^^i 

^INSIDE = ^ (TO. - TM)Y. 

i=l ^ ^ 


the heat balance equation of a wall 

(EQ. l)f 
(EQ. 2)* 


t Note that the response factors include the inside convection film co- 
efficient. 


3-36 



Outside Wall Surface Heat Balance: 


Outside ~ ^i ^^2 “ ^3 

where 

= AB * S0LI (EQ. 4) 

^2 = F0 * (TDB - TO^) (EQ. 5) 

q3 = 2.0 * A * (10.0 - CC) (EQ. 6) 

Combining equations 1, 3, 4, 5 and 6: 

£ (TO. - TM)X. = AB * S0LI + FO * (TDB - TO,) 
i=l ^ ^ ' 

- 2.0 * A * (10.0 - GC) (EQ. 7) 


Equation 7 is the heat balance equation of the outside wall surface at 
the time in question. Since T 02 > TO 3 , etc. are known from past calculations, 
T 0 .J may be solved from this equation. 

Rearranging equation 7 as: 


TO^ * (X^ + FO) = X^ * TM+ AB * SOI I + FO * TDB - 2.0 


* A * ( 10.0 - CC) - Z (TO. -TM)X. (EQ. 8 ) 

i==2 ^ ^ 


and solving equation 8 for T 0 .| gives: 

X^*TM+AB*S0LI+F0*TDB-2.0*A*(10.0 -CC) 



X^ + FO 


Z (TO.-TM)X, 
i =2 ^ ' 


Now that TO, is known, equation 2 may be used to compute QTMQTnc 
directly. ' 


Mk 

A subroutine which determines the total space sensible load by 
combining the different sensible components after being multiplied 
by their appropriate weighting factors. 
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INPUT 

I 

HI 

H2 

H3 

HI NEW 
H2NEW 

H3NEW 

RMRGl 

RMRGC 

RATRG 

RMRXl 

RMRXC 

RATRX 

RMRISI 

RMRISC 

RATRIS 

RMRPSl 

RMRPSC 

RATRPS 

HRLDS 

HRLDL 


Space Number 

Window solar load from previous hour, BTU/HR 

Total transmission and internal load from previous 
hour, BTU/HR 

Plenum return air load from previous hour, BTU/HR 

Window solar load for present hour, BTU/HR 

Total transmission and internal load for present 
hour, BTU/HR, 

Plenum return air load for present hour, BTU/HR 


>Window solar load weighing factors 


>Space sensible load weighting factors 


>Space lighting load weighting factors 


leturn plenum lighting load weighting factors 


Tota^ space sensible load for present hour, BTU/HR 
Total plenum sensible load for present hour, BTU/HR 
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SA 

SB 

SC 

H2P 

H2NEWP 

SBP(I) 


OUTPUT 

HI 

H2 

H3 

HRLOS 

HRLDL 

SA 

SB 

SC 

SBP 

H2P 


Weighted window solar load for present hour, BTU/HR 

Weighted space sensible load for present hour, BTU/HR 

Weighted space lighting load for present hour, 

BTU/HR 

Components of sensible load from previous hour, BTU/HR 

Components of sensible load for present hour, BTU/HR 

Components of weighted sensible load for present 
hour, BTU/HR, where 

1=1 equipment 

2 quick walls 

3 delayed walls 

4 underground floors 

5 underground walls 

6 internal walls 

7 people 

8 window conduction 

9 quick ceilings 
10 delayed ceilings 


Window solar load from previous hour, BTU/HR 

Total transmission and internal load from previous 
hour, BTU/HR 

Plenum return air load from previous hour, BTU/HR 

Total space sensible load for present hour, BTU/HR 

Total plenum sensible load for present hour, BTU/HR 

Weighted window solar load for present hour, BTU/HR 

Weighted space sensible load for present hour, BTU/HR 

Weighted space lighting load for present hour, BTU/HR 

Components of weighted sensible load for present 
hour, BTU/HR 

Components of sensible load for previous hour, 

BTU/HR 
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CALCULATION SEQUENCE 


(SPACE SENSIBLE LOAD)^- 


E I (LOAD)i . * (WEIGHTING FACTOR)! . 
j=0 i=l 


Where i is a superscript which corresponds to the type 
of loads and n is the number of the type of loads. 

HOLDAY 


A subroutine which identifies the National holidays of the United 


States of America. 

INPUT 


MO 

: Month of the year 

JAY 

: Day of the month 

NDAY 

: Day of the week (Sunday = 1 , etc. ) 

OUTPUT 

JOL 

1 , ... . .. _J0 Not holiday 

: Holiday Indicator 


CALCULATION SEQUENCE 

1. Set JOL equal to 1 for the following situations: 

If MO = 1 and JAY = 1 

MO = 12, JAY, = 31, and NDAY = 6 

MO = 1, JAY = 2, and NDAY = 2 

MO = 2, and JAY = 22 

MO = 2, JAY = 21, and NDAY = 6 

MO = 2, JAY = 23, and NDAY = 2 

MO = 5, and JAY = 30 

MO = 5, JAY = 29, and NDAY = 6 

MO = 5, JAY = 31, and NDAY = 2 

MO = 7, and JAY = 4 

MO = 7, JAY = 3, and NDAY = 6 

MO = 7, JAY = 5, and NDAY = 2 

MO = 12 and JAY = 25 

MO = 12, JAY = 24, and NDAY = 6 

MO = 12, JAY = 26, and NDAY = 2 

MO = 9, JAY is less than 7 and NDAY = 2 

MO = 1 , JAY ig greater than 23, and NDAY = 5 

2. Otherwise, set JOL equal to 0. 
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m 

A subroutine which computes the heat transferred into a space 
from an outside opaque quickly-responding wall, door, etc. This 
subroutine is very similar to the HD subroutine except that it 
requires no use of response factors. 


INPUT 

FO 

U 

A 

CC 

TM 

TDB 

AB 

SOLI 

OUTPUT 

Q 


Overall film coefficient for the outside surface 
of wall (includes convection and long wave radiation). 
BTU/HR - sq. ft. - °F * 

Overall heat transfer coefficient of wall, BTU/HR - 
sq. ft. - °F 

Cosine of angle between zenith and outward normal 
of wall 

Total cloud amount index (previously called ICLD 
in subroutine CCM) 

Constant space temperature, ® R 

Ambient outside air dry-bulb temperature, °R 

Absorptivity of outside surface of wall to 
radiation in solar spectrum 

Total solar radiation intensity, BTU/HR - sq. ft. 


Space heat gain (+) or less (-) per unit area of 
surface, BTU/HR - sq. ft. 


CALCULATION SEQUENC»^ 


Using the same terminology of the HD subroutine, we can write: 
^OUTSIDE " ^INSIDE " ^ * (TO^ - TM) (£q^ 1) 


where U is the overall heat transfer coefficient. 


The heat balance equation of the outside wall surface becomes: 

U * (TO^ - TM) = AB * SOLI + FO * (TDB - TO^ ) - 2.0 

* A * (10.0 - CC) (EQ. 2) 

Solving this equation for TO^ gives: 

rn - U *TM + AB * SOLI + FO * TDB - 2.0 * A * (10.0 - CC) 

'^1 - U + FO 

Now that T0-| is known, equation 9 may be used to compute Qjh| 5 jq£ directly. 
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INPUT! 


A subroutine used to read surface geometric data required for common 
shading surfaces and shading surfaces added to delayed* quick and 
window surfaces. 

INPUT 


KARD : Logical unit number for card input device 

KAGIT : Logical unit number for line printer 

NV : Number of vertices contained in surface 

OUTPUT 
XX 
YY 
11 

CALCULATION SEQUENCE 


coordinates of vertices 


1 . 


2 . 


If NV = 1, the short form of description for a rectangular 
surface is desired, therefore go to calculation 2; if 
NV >3, go to calculation 3. 

Short form input for rectangular surface 

a) Read the following card input data: 


b) 


XCORN 
YCORN 
ZCORN 
HT - 
WD - 
AZIM - 
TILT - 

Convert azimuth 



coordinates of lower lefthand vertex, 

height, ft 
width, ft 

azimuth angle, degrees 
tilt angle, degrees 
and tilt angles to radians 


ft 


AZIM = 0.01745 * AZIM 
TILT = 0.01745 * TILT 
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c) Call RECTAN which returns XX, YY, ZZ. 

d) Call RECAP2 to echo data. 

e) Reset NV = 4. 


3. Long form input for any surface shape 

a) For each of NV vertices, read XX, YY, and ZZ from 
card input data. 

b) Call RECAP2 to echo data. 

INPUT2 

A subroutine used to read input surface data required for delayed 
and quick surfaces. 


INPUT 

KAKD 

KAGIT 


OUTPUT 

NV 

XX 

YY 

ZZ 

AZIM 

TILT 

AREA 

NX 


NY 


ND 

NA 


Logical unit number for card input device 
Logical unit number for line printer 

Number of vertices contained in surface 

coordinates of vertices 

Surface azimuth angle, degrees 
Surface tilt angle, degrees 
Surface area, sq ft 

Number of X-di visions that surface is to be 
divided into for shadow calculations 

Number of Y-di visions that surface is to be 
divided into for shadow calculations 

Number of common shading surfaces deleted 

Number of local shading surfaces added 
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ISR 

IRF 


Surface roughness index 

Surface construction type index (used only for 
delayed surfaces) 


H : Height, ft 

W : Width, ft 

CALCULATION SEQUENCE 

1. Read input card identifying the following surface factors: 
FNV, FNX, FNY, FND, FNA, FISR, FIRF. 


2 . 


3. 


4. 


Convert these factors to integer number. 


NV 

= 

FNV + 0.1 

NX 

= 

FNX + 0.1 

NY 

i 

= 

FNY + 0.1 

NO 

= 

FND + 0.1 

NA 

= 

FNA + 0.1 

ISR 

s 

FISR + 0.1 

IRF 

= 

FIRF + 0.1 

and echo data. 



If NV = 1 , the short form of geometric description for a 
rectangular surface is desired, therefore go to calculation 
4; if NV >3, go to calculation 5. 


Short form input for rectangular surface 

a) Read the following card input data: 


XCORN 
YCORN 
ZCORN 
HT - 
WD - 



coordinates of lower lefthand 
vertex, ft 
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height, ft 
width, ft 



AZIM 


azimuth, angle, degrees 
tilt angle, degrees 


TILT - 

b) Convert azimuth and tilt angles to radians and 
calculate surface area. 

AZIM = 0.01745 * AZIM 

TILT = 0.01745 * TILT 

AREA = HT’ * WD 

c) Call RECTAN which returns XX, YY, ZZ. 

d) Call RECAP2 to echo data. ^ 

e) Reset NV = 4. 

5. Long form input for any surface shape 

a) For each of NV vertices, read XX, YY, and ZZ 
from card input data. 

b) Call RECAP2 to echo data. 
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INF 

A subroutine which estimates sensible and latent components of 
the outside air load which infiltrates through openings. 

INPUT 

DB : Outside air dry-bulb temperature, °F 

HUMRA ; Outside air humidity ratio, lbs water/lb dry air 

DEN : Outside air density, lbs dry air/cu ft 

VO : Outside air specific volume, cu ft 

TSPA : Space temperature, °R 

CODE : Number of air changes per hour 

OUTPUT 

QSIN : Sensible infiltration load, Btu/hr 

QLIN : Latent infiltration load, Btu/hr 



1. If DB is greater than 50°F, cooling coil is probably 
operating, therefore estimate space humidity ratio as 
follows 



50 DB 90 
WRA = SPACE HUMIDITY RATIO 


_ 53.2 + 0.245 * (DB 
7000.0 


2. If DB is less than 50°F, only heating coil is probably operating, 
therefore, 

WRA = HUMRA 
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3. QSIN = 14.4 * DEN * VO * (DB + 460.0 - TSPA)*C0DE/60.0 
QLIN = 63300.0 * DEN * VO * (HUMRA - WRA) * CODE 


LEEP 

A subroutine which determines whether a year is a leap year or not. 
INPUT 

JAHR : Year AD 



If (JAHR - 1900) is evenly divisible by 4, then LEEP = 1, 
otherwise LEEP = 0 


MATCON 

A subroutine which examines the grid elements of a shaded surface 
and defines an alphameric matrix made up of blank characters for sunlit 
elements or an asterisk character for shaded or border elements. 

INPUT 

ISHADE : A two-dimensional matrix representing the grid into 

which a surface is broken for shadow analysis. Each 
element of the matrix has a value of either 0, 1, 
or 2 to indicate respectively: 

-sunlit element of surface 
-shaded element of surface 
-element falling outside surface 

See Figure 3.9 for example. 

MM : Number of grid elements in the x-axis direction 

NN : Number of grid elements in the y-axis direction 

OUTPUT 

ISHADE : Redefined grid matrix filled with either blank 

or asterisk characters 
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CALCULATION SEQUENCE 

1. For each element of matrix, i.e. , I = 1 to MM and J = 1 , NN 

a) If ISHADE (I,J) is greater than 0, go to 2 

b) If ISHADE (I,J) is equal to 0, check to see if element 
is on border of surface, i.e., I = 1 or MM, J = 1 or NN. 

If so, set ISHADE (I, J) = 1. 

c) If ISHADE (I,J) is equal to 0, and I M or MM or J 1 or NN, 
check to see if element is on a diagonal border; i.e., 
element above, below, to right, or to left is equal to 2. 

If so, set ISHADE (I, J) = 1. 


2. For each element of matrix, i.e. , I = 1 to MM and J = 1 
to NN 

a) If ISHADE (I, J) = 0, set element equal to a 
blank character 

b) If ISHADE (I,J) is greater than 0, set element equal 
to an asterick character. 

See Figures 3.8 - 3.11 for a visual explanation of the steps performed 
in making a shadow calculation. Also refer to subroutine SHADOW for 
further insites into the mechanics of performing such calculations. 



Step 1 - Surface broken into grid elements with 0 and 2 
indicating if grid midpoint is without or within 
the surface boundary 
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Shaded 


2 2 2 2 2 2 0 0 0 

1 1 1 1 1 1 1 J 

2 2 2 2 2^0 0 0 0 0 

11111 X'i 

2 2 2 2^0 0 0 0 0 0 

1 1 1 1 1/2 2 J 

2 2 2/0 0000000 

1 1 1 y2 2 2 i 

00000000 

1 T 2 2 2 : 

^0 000000000 

1>K2 2 2 2 2 J 


Shaded 
Figure 3.9 . 


Surface broken into elements with 
1 indicating portion that is shaded 


1111111 
1 
1 
1 
1 
I 

Figure 3.10 

Step 3 - Surface broken into grid elements with 

1 indicating a shaded element or a boundary 
element 



2 2 2 2 2 2 1 1 
2 2 2 2 iX 1 0 0 0 0 
2 2 X 1 0 0 0 0 0 

2 y\ 0 0 0 0 0 0 0 
2^1 00000000 
1111111111 



Figure 3.11 

Step 4 - Transformed matrix ready for pictorial display 
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MONFIN 


A subroutine to define the alphameric name of a month given 
the numeric equivalent. 

INPUT 

MONTH; : Month of year, 1 to 12 
OUTPUT 

MONT : Alphameric name of month corresponding to MONTH. 


CALCULATION SEQUENCE 


If MONTH = 1 , MONT = 
= 2 . 

= 3, 

= 4. 

= 5. 

= 6 . 

= 7. 

= 8 . 

= 9. = 

=10 

= 11 , 

= 12 , 


JAN. 

FEB. 

MAR. 

APR. 

MAY 

JUNE 

JULY 

AUG. 

SEP. 

OCT. 

NOV. 

DEC. 
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NDOW 


A subroutine which determines the day of the week. 

INPUT 

JR : Year AD 

MO : Month of the year 

JAY : Day of the month 

OUTPUT 

Cl If Sunday 

1 2 If Monday 

1 3 if Tuesday 

NDOW : Week day indicator =< 4 if Wednesday 

1 5 if Thursday 
/6 if Friday 
(7 if Saturday 

CALCULATION SEQUENCE 

1. Let JST(l) = 31, JST(2) = 59. JST(3) = 90, JST(4) = 120 

JST(5) = 151, JST(6) = 181, JST(7) = 212, JST(8) = 243 

JST(9) = 273, JST(10)= 304, JST(11)= 334, JST(12)= 365 

2. Let N = Integer part of JR/4 

ND = N - 485 
lY = 2, lAAD = 2 
If ND = 0, go to (4) 

If ND is less than 0, ND = -ND and lADD = -2. 

3. Repeat the following steps ND times 

lY = lY - LADD 

If lY is greater than 7, lY = lY - 7 
If lY is equal to 0, lY = 7 
If lY is less than 0, lY + 7 

4. Let MD = JR - N * 4 

If MD is equal to 0, IWK = lY 

1, IWK = lY + 2 

2, IWK = lY + 3 

3, IWK = lY + 4 

If IWK is greater than 7, IWK = IWK - 7 
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5. Repeat the following for j = 1 through 12. 

If MO is equal to j, let JDAY = JST(j) - 31 + JAY - 1 

6. If MD is equal to 0 and MO is greater than 2, JDAY = JDAY + 1 

7. NTX = Integer part of JDAY/7 
NDX = JDAY - 7 * NTX + IWK 

If NDX is greater than 7, let NDS = NDX - 7 

8. Let NDOW = NDX 

PSY AND PPWVMS 


A subroutine which calculates humidity ratio, enthalpy and density of 
outside air. 


INPUT 


DBT 

WBT 

DPT 

PATM 

OUTPUT 

HUMRAT 

ENTH 

DENS 

CALCULATION 


: Outside air dry-bulb temperature, 

: Outside air wet-bulb temperature, °F 

: Outside air dew point temperature, °F 

: Atmospheric pressure, inches of mercury 

: Humidity ratio, lbs water/lb dry air 

: Enthalpy, Btu/lb dry air 

: Density, lbs dry air/cu ft 

SEQUENCE 


In the calculation of psychrometric properties of moist air, partial 
pressure of water vapor is needed. This is calculated by the PPWVMS sub- 
function. 


1. If DPT is less than 32, calculate partial pressure of water vapor 
for DPT. 

PPWV = PPWVMS (DPT) 

Go to step 3. 
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2. If DPT is greater than 32, calculate partial pressure of water 

vapor in moisture-saturated air for WBT and obtain partial pressure 
of water with 



PPWV 

= PPWVMS(WBT) - 0.000367 * PATM * (DBT - WBT)/ 
(1.0 + (WBT - 32.0)/1571.0) 

3. 

HUMRAT = 

0.622 * PPWV/ (PATM - PPWV) 

4. 

ENTH 

0.24 * DBT + (1061.0 + 0.444 * DBT) * HUMRAT 

5. 

DENS 

1.0/(0.754 * (DBT + 460.0) * (1.0 + 7000.0 * HUMRAT/ 
4360.0) /PATM) 


CALCULATION OF PARTIAL PRESSURE OF WATER IN MOISTURE-SATURATED AIR: 


1. Let t be either DBT, WBT or DPT. 


2. Let A(l) = -7.90298 
A(2) = 5.02808 
A(3) = -1.3816 E-7 
A(4) = 11.344 
A(5) = 8.1328 E-3 
A(6) = -3.49149 


B(l) = -9.09718 
B{2) = -3.56654 
B(3) = 0.876793 
B(4) = 0.0060273 


3. Let T = (t + 459.688)/!. 8 


If T is less than 273.16, go to 4. 


Otherwise 


z = 373.16/T 
PI = A(l) * (z-1) 

P2 = A(2) * Logic (z) 

P3 = A(3) * (10 ** (A(4) * (l-l/z))-l) 

P4 = A(5) * (10 ** (A(6) * (z-l))-l) 

Go to 5. 


4. Let z = 273.16/T 

PI = B(l) * (x-1) 

P2 = B(2) * LoglO (z) 

P3 = B(3) * (1-1/z) 

P4 = Log 10 (B(4)) 

5. PVS = 29.921 * 10 ** (PI + P2 + P3 + P4) 
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QMAX 

A subroutine that sums space loads each hour to get total building 
load; also keeps track of the peak heating and cooling load for each space. 

INPUT 

I : Space Number 

HRLDS : Space sensible load for hour, Btu/hr 

SSHMAX : Maximum space sensible heating load, Btu/hr 

TOTAL : Space total load for hour, Btu/hr 

STCMAX : Maximum space total cooling load, Btu/hr 

SUMA : Space window solar load, Btu/hr 

SUMBP(L) : Space sensible load components, Btu/hr 

where : 




L = 1 

equipment 



2 

quick walls 



3 

delayed walls 



4 

underground floors 



5 

underground walls 



6 

Internal walls 



7 

people 



8 

window conduction 



9 

quick ceilings 



10 

del ayed cei 1 1 ngs 

SUMC 

: Space 

lighting 

load, Btu/hr 

HLATP 

: Space 

latent load due to people, Btu/hr 

QSINF 

: Space 

sensible 

load due to infiltration, Btu/hr 

QLINF 

: Space 

latent load due to Infiltration, Btu/hr 

HRLDL 

: Space 

plenum return air load, Btu/hr 

QLEQ 

: Space 

latent load due to equipment, Btu/hr 

MONTH 

: Month 

number 


DBT 

: Ambient dry- bulb temperature, ®F 

WBT 

: Ambient wet-bulb temperature, °F 
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HUMRAT 


Ambient air humidity ratio, Ib/lb 
DENS : Ambient air density, Ib/cu ft 

CFMSF : Estimated amount of ventilation air, CFM/sq ft 

FLORA : Space floor area, sq ft 

TROOM : Space setpoint temperature, °F 

MULT : Number of tin«s space is repeated in building 

ITIME : Time of day, 1 to 24 

I DAY : Day of month 

BHEATT : Summation of space heating loads for the hour, Btu/hr 

QHCOMP(K) : Components of hourly building heating load, Btu/hr, 

where K takes on the following definition 

K = 1 delayed walls 

2 window conduction 

3 window solar 

4 quick walls 

5 internal walls 

6 underground walls 

7 underground floors 

8 people sensible 

9 people latent 

10 lighting 

11 equipment sensible 

12 infiltration sensible 

13 infiltration latent 

14 plenum return air 

15 equipment latent 

16 quick ceilings 

17 delayed ceilings 

QCCOMP(K) : Components ox hourly buildign cooling load, Btu/hr, 

where K has same definition as above. 

OUTPUT 

QHCOMP(K) : Same definition as above 

QCCOMP(K) : Same definition as above 

QWIN(M,I) : Components of space peak heating load, Btu/hr, where 

I is the space number and M takes on the following 
definition 
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QSUM(M,I) 


M = 1 delayed walls 

2 window conduction 

3 window solar 

4 quick walls 

5 internal walls 

6 underground walls 

7 underground floors 

8 people sensible 

9 people latent 

10 lighting 

11 equipment sensible 

12 infiltration sensible 

13 infiltration latent 

14 plenum return air 

15 equipment latent 

16 month 

17 ambient dry-bulb temperature 

18 ambient wet-bulb temperature 

19 ambient humidity ratio 

20 hour of day 

21 quick ceilings 

22 delayed ceilings 

23 day of month 

Components of space peak cooling load, Btu/hr; M and I 
have same definition as for QWIN 


CALCULATION SEQUENCE 


1. If HRLDS is zero or positive go to 3. 

If HRLDS is negative, go to 2. 

2. Heating hour 

a) Add space heating load and space ventilation air load into 
building heating load for the hour 

BHEATT = BHEAH + HRLDS + QOA 

QOA = 14.4*DENS*CFMSF*FL0RA(I)*(DBT-TR00M(I)) 

b) Add space heating load components into building heating 
load components 


QHCOMP(l) = 

QHCOMP(l) + SUMBP(I,3)*MULT(I) 

(2) = 

(2) + SUMBP(I,8)*MULT{I) 

(3) = 

(3) + SUMA (I) * MULT(I) 

(4) = 

(4) + SUMBP(I,2)*MULT(I) 

(5) = 

(5) + SUMBP(I,6)*MULT(I) 

(6) = 

(6) + SUMBP(I,5)*MULT(I) 

(7) = 

(7) + SUMBP(I,4)*MULT(I) 
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(8) = (8) + SUMBP(I,7)*MULT(I) 

(9) = (9) + HLATP * MULT(I) 

(10) = (10) + SUMC(I) * MULT(I) 

(11) = (11) + SUMBP(I,1)*MULT(I) 

(12) = (12) + QSINF * MULT(I) 

(13) = (13) + QLINF * MULT(I) 

(14) = (14) + HRLDL(I) * MULT(I) 

(15) = (15) + QLEQ * MULT(I) 

(16) = (16) + SUMBP(I) * MULT(I) 

(17) = (-17) + SUMBP(I.IO) * MULT (I) 

c) Check for peak load, i.e., if 1HRLDS| > jSSHMAXl, and 
update peak load data as follows: 

QWIN(1,I) = SUMBP(I,3) 

(2.1) = SUMBP(I,8) 

(3.1) = SUMA (I) 

(4.1) = SUMBP (1,2) 

(5.1) = SUMBP (1,6) 

(6.1) = SUMBP (1,5) 

(7.1) = SUMBP (1,4) 

(8.1) = SUMBP (1,7) 

(9.1) = HLATP 

(10.1) = SUMC(I) 

(11.1) = SUMBP(I,1) 

(12.1) = QSINF 

(13.1) = QLINF 

(14.1) = HRLDL(I) 

(15.1) = QLEQ 

(16.1) = MONTH 

(17.1) = DBT 

(18.1) = WBT 

(19.1) = HUMRAT 

(20.1) = ITIME 

(21.1) ^ SUMBP(I,9) 

(22.1) = SUMBP(I,10) 

(23.1) = IDAY 


3. Cooling hour 

a) Add space cooling load and space ventilation air load Into 
the building cooling load for the hour. 

BCOOLT = BCOOLT + TOTAL + QSOA + QLOA 

QSOA = 14.4*DENS*CFMSF*FL0RA*(I)*(DBT - TROOM(I)) 

QLOA = 63000.*DENS*CFMSF*FL0RA(I)*(HUMRAT - 0.0093) 

(Room humidity condition Is assumed to be approximately 
75®F and 50% R.H.) 

If QLOA <0.0 set QLOA =0.0 
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b) Add space cooling load components into building cooling 
load components. Follow same procedures as are outlined 
in 2b above except use QCCOMP instead of QHCOMP. 

c) Check for peak load, i.e., if | TOTAL [ > |STCMAX|, and 
update QSUM peak load data using same procedures as are 
outlined in 2c above. 


RECTAN 


A subroutine which calculates coordinates of three vertices 
of a rectangle, two sides of which are horizontal, if tilt angle, 
azimuth angle and coordinates of one vertex are given. 


INPUT 

X 

Y 

Z 

H 

W 

A 

B 

OUTPUT 

XV(I) 

YV(I) 

ZV(I) 


^Coordinates of one vertex, ft 

Height of surface, ft 
Width of surface, ft 
Azimuth angle, degrees 
Tilt angle, degrees 


Coordinates of 4 vertices 


CALCULATION SEQUENCE 

1. Let CA = COS (A) 

CB = COS(B) 

SA = SIN(A) 

SB = SIN(B) 

2. XV(1) = X - H * CB * SA 
YV(1) = Y - H * CB * CA 
ZV(1) - Z + H * SB 
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XV(2) = X 
XV(2) = Y 
ZV(2) = Z 

XV(3) = X - W * CA 
YV(3) = Y + W * SA 
ZV(3) = Z 

XV(4) = X - W * CA - H * CB * SA 
YV(4) =Y+W*SA-H*CB*CA 
ZV(4) = Z + H * SB 



Figure 3.12 DEFINITION OF SURFACE ANGLES 
AND DIMENSIONS 
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•Z.VC4; 



RECAP1 


A subroutine that echos beginning portion of input data, i.e., 
LC-1 through LC-10. 


INPUT 

STALAT 

STALON 

TZN 

CNS 

CNW 

BAZ 

LCODE 

CFMSF 

FPRES 

DTC 

DTH 

ALTUD 

TUBS 

RANGS 

TOPS 

NINOS 

TDBW 

RANGW 

TDPW 

NINON 

JAHR 

JMONTH 


Station latitude, degrees 

Station longitude, degrees 

Time zone number 

Summer clearness number 

Ninter clearness number 

Building azimuth angle, degrees 

Job processing code 

Ventilation air rate, cfm/sq ft 

Estimated total fan pressure, inches of water 

Cold air supply temperature, °F 

Hot air supply temperature, °F 

Building altitude, ft. 

Summer maximum DBT, °F 
Summer daily range of DBT, °F 
Summer dew point temperature, °F 
Summer wind speed, mph 
Ninter minimum DBT, °F 
Ninter daily range of DBT, °F 
Ninter dew point temperature, °F 
Ninter wind speed, mph 
Neather year 

Starting month of analysis 
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LENGTH : 

Length of analysis, days 

IXMAS ; 

Length of Christmas period, days 

TDB : 

Initial temperature of exterior surfaces, °F 

KPRINT : 

Print code 

KAGIT : 

Logical unit number for line printer 

OUTPUT 

A report si mi 

lar to that shown in Figure 3.13. 


RECAP2 

A subroutine that echos surface geometric description input data. 

INPUT 

NV 

XCORN 
YCORN 
ZCORN 
HT 
WD 

AZIM 
TILT 
X 
Y 
Z 

KAGIT 
OUTPUT 

Several lines of output similar to those indicated in Figure 3.14. 


Number of vertices contained in surface 

Coordinates of lower left-hand vertex, ft. 

Height, ft. 

Width, ft. 

Azimuth angle, radians 
Tilt angle, radians 

Coordinates of all surface vertices, ft. 


Logical unit number of line printer. 
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ECHO OP INPUT DATA 


o 




• • 



ae 

o 

o 

DC 

a 


o 

o 


c 

o 

li. 




« 








o> o 



o o c» o o o o 

o a o o o o o 

• • • • • • • 

K *4 m •-« O «4 

IQ <H ov 


CQ 

Li 

a. 




< 




< 



Ul 


H 

< ■ 


-J 


< 

o >- >- 


3 


a 

<< 


O 



O Ul o o 


Ul 

< 

U) 

< Q 

Ul 

z 

►- 

z 

o o ce ee 

o 

u 

< 


J Ul Ul 

o 

M 

o 

W1 

c ^ 

u 



(/) 

z »-'r z 


lu 

o 

w 

O -» 3 '-A 

w 

o 


o 

!-• < V> 3 

z 


(0 

o 

</) 

M 

• 

< 

oe 

Ul 

K 

o 

o 

a. 

o 

(L 

z 


/ 

/ 


I 


3-62 


Figure 3.13 SAMPLE OUTPUT FROM RECAPl 
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CALCULATION SEQUENCE 


1. If NV = 1, go to calculation 2; otherwise go to calculation 3. 

2. Echo Input data for rectangular surface. 

a) Convert azimuth and tilt angle to degrees. 

AA = AZIM/0.01745 
BB = TILT/0.01745 

b) Print XCORN, YCORN, ZCORN, HT, WD, AA, and BB. 

3. Echo Input data for surface. 

a) Print column label. 

b) For each of NV surface vertices, print X, Y and Z 
coordinate. 


REPRTl 

A subroutine that prints a one-page report summarizing the name of 


building being studied, 
date. 

its location, name of analyst, project number and 

INPUT 


IDENl : 

Facility name 

IDEN2 : 

Facility location 

IDEN3 : 

Analyst's name 

IDEN4 : 

Project number 

IDEN5 : 

Date 

KODE : 

Print code indicating if writing on output 
computer tape Is desired 

KAGIT : 

Logical unit number for line printer. 

OUTPUT 


A one-page report similar to that shown in Figures 3.15 and 3.16. 
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CALCULATION SEQUENCE 


1. Print upper part of border. 

2. Print first line of report. 

a) If KODE = 1 or 2, print title "Design Load 
Analysis For". 

b) If KODE > 2, print title "Analysis of Energy 
Utilization of". 

3. Print IDENl , first calling subroutine CENTER to position 
title within center of 35 column field. 

4. Print IDEN2, again calling subroutine CENTER to position 
title within center of 35 column field. 

5. Print IDEN3, IDEN4 and IDEN5. 

6. Print lower part of border. 

7. If KODE < 3. write IDEN3, IDEN4 and IDEN5 on output 
computer tape. 

REPRT2 

A subroutine that prints a one-page report summarizing calendar data 
and weather data required for hourly energy analysis run. 


INPUT 


JSTAT 

: Weather station number 

JHOUR 

: Hour of day when analysis is to start 

LMONTH 

: Month when analysis is to start 

LDAY 

: Day of month when analysis is to start 

JAHR 

: Year when analysis is to start 

LENGTH 

Length of analysis in days 

ITDB 

: Initial estimate of exterior surface temperature 

op 

KAGIT 

: Logical unit number for line printer 
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OUTPUT 


A one-page report similar to that shown in Figure 3.17. 


REPRT3 

A subroutine that prints a one-page report summarizing data that is 
printed each hour on load output tape and on line printer, if desired. 

INPUT 

— I 

KAGIT : Logical unit number of line printer. 

OUTPUT 

A one-page report similar to that shown in Figure 3.18. 


REPRT5 


A subroutine that prints a one-page report summarizing the design 
weather data generated by subroutine DESDY. 


INPUT 

TDBS 

RANGS 

TOPS 

WINDS 

TDBW 

RANGW 

TDPW 

WINDW 

PATM 

IPRNT 


Maximum summer dry-bulb temperature, °F 

Daily swing of dry-bulb temperature for summer 
design day, °F 

Average dew point temperature for summer design 
day, OF 

Wind speed for summer design day, mph 

Minimum winter dry- bulb temperature, °F 

Daily swing of dry-bulb temperature for winter 
design day, °F 

Average dew point temperature for winter design 
day, op 

Wind speed for winter design day, mph 
Atmospheric pressure, inches of mercury 
Logical unit number for line printer. 
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Figure 3.17 
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OUTPUT 


A one-page report similar to that shown in Figure 3.19. 

CALCULATION SEQUENCE 

1. Print top part of report sunmarizlng user input data, 
i.e., TDBS, RANGS, TOPS, WINDS, TDBW, RANGW, TDPW and 
WINDW. 

2. Calculate minimum dry-bulb temperature for summer design day. 

TWIN = TDBS - RANGS 

3. For months March through November: 

a) Call subroutine DESDY to calculate the hourly 
design dry-bulb temperature, TDB, and wet-bulb 
temperature, TWB for the month. 

b) Print TDB and TWB. 

4. Calculate maximum dry-bulb temperature for winter design day. 

TMAX = TDBW + RANGW 

5. For month of December: 

a) Call subroutine DESDY to calculate the hourly 
design dry-bulb temperature, TDB, and wet-bulb 
temperature, TWB, for month. 

b. Print TDB and TWB. 

REPRT6 

A subroutine which prints one-page reports for each space and building 
summarizing peak load data results. 

INPUT 

IPRNT : Logical unit number for line printer 

FAC : Facility name 

CITY : Facility location 

PROJ : Project number 

ENGR : Engineer name 
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SUHMtR OAV liMPUT PaRAMETEHS WINTER DAY INPUT PARAMETERS 
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Figure 3.19 SAMPLE OUTPUT 
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NL lE - TEMPI kATUKL CORRECT ION FACTORS BASED ON 

CARRIER system DESIGN manual PGS. 1-IP.19 
W6T is set at eLAST a OEG. F BELOW DBT. 



DATE 

NSPAC 

AREA 

VOL 

TSPAC 

DENS 

DENW 

QSUM(I.N) 


QWIN(I,N) 

T1(I) 

T2(I) 


Date 

Number of spaces tn buildtng 

Space floor areas, sq ft 

Space volumes, cu ft 

Space set point temperature, °F 

Outside afr density for summer peak load hour, 
Ibs/cu ft 

Outside air density for winter peak load hour, 

1 bs/cu ft 

Components of space peak cooling load, Btu/hr, 
where N is the space number and I takes on the 
following definition: 

I = 1 delayed walls 

2 window conduction 

3 Window solar 

4 quick walls 

5 i nternal wal 1 s 

6 underground walls 

7 underground fl oors 

8 people sensible 

9 people latent 

10 lighting 

11 equipment sensible 

12 infiltration sensible 

13 infiltration latent 

14 plenum return air 

15 equipment latent 

1 6 month 

17 ambient DBT 

18 ambient WBT 

19 ambient humidity ratio 

20 hour of day 

21 quick ceilings 

22 delayed ceilings 

23 day of month 

Components of space peak heating load, Btu/hr; 

I and N have same definition as for QSUM. 

Components of building peak cooling load, Btu/hr; 
I has same definition as for QSUM. 

Components of building peak heating load, Btu/hr; 
I has same definition as for QSUM. 
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CFMSF : Ventilation air rate, cfm/sq ft 

FPRES : Estimated total fan pressure, inches of water 

MULT : Space repetition factor 

OUTPUT 

A one-page report for each space similar to that shown in 
Figure 3.20. Also a one-page report for the building similar to 
that shown in Figure 3.21. Finally, a one-page report summarizing 
heating and cooling capacities required for each space (see Figure 
3 . 22 ). 

CALCULATION SEQUENCE 

1. For each space, N, print following: 

a) Identification information, i.e., page header, 
page number, FAC, CITY, space number, MULT, AREA 
and VOL. 

b) Time and conditions for summer peak load, i.e., 
dry-bulb temperature, wet-bulb temperature, hour 
of day, month, and day of month. 

c) Time and conditions for winter peak load, i.e., 
dry-bulb temperature, wet-bulb temperature, 
hour of day, month, and day of month. 

d) Components of summer and winter peak load in order 
indicated in Figure 3.20. 

e) Total summer sensible, summer latent and Winter 
sensible load which are simply the summations of 
their respective columns. 

f) Total space cooling expressed in Btu/hr, which 

is simply the sunmiation of the total summer sensible 
and latent loads. 

g) Total space heating expressed in Btu/hr, the total 
winter sensible load. 

h) The supply air cfm required to meet the total space 
sensible cooling load for two values of required 
zone supply air temperatures; 

CFMl = T0T1/(14.4*DENS*(TSPAC(N) - DTC(l)) 
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******* variable volume SYSTEM ******* ******* CONSTANT VOLUME SYSTEM •••* 
SUPPLY air A1 uu F at DIFFUSER 36A97. CFM 0.69 CFM/SO.FT. MAX. 92370. CFM 0.60 CFM/SO.FT. CONST 
SUPPLY AIK A1 33 F AT DIFFUSEF ‘♦5621. CF« 0.66 CFM/SO.FT. MAX. S2962. CFM 1.00 CFM/SO.FT. CONST 
Supply air A1 120 F at diffuser 16S00. CFM 0.31 CFM/SO.FT. max. 17606. CFM 0.33 CFM/SO.FT. CONST 
SUPPLY aIR at mo F AT DIFFUSER H‘423. CFM 0.22 CFM/SO.FT. MAX. 12190. CFM 0.23 CFM/SO.FT. CONST 
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Figure 3.22 SAMPLE OUTPUT 
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CFM2 = T0T1/C14.4*DENS*(TSPAC(N) - DTC(2)) 
where TOTl ts total summer sensible load. 

i) The supply air cfln required to meet the total space 
sensible heating load for two values of required 
zone supply air temperatures: 

CFM3 = T0T3/(14.4*DENW*(DTH(1) - TSPAC(N)) 

CFM4 = T0T3/(14.4*DENW*(DTH(2) - TSPAC(N)) 

where T0T3 is total winter sensible load. 

j) The supply cfm required per square foot of floor 
area. 

SQFTl = CFM1/AREA(N) 

SQFT2 = CFM2/AREA{N) 

SQFT3 = CFM3/AREA(N) 

SQFT4 = CFM4/AREA(N) 

2. Calculate following summations for building. 

a) Total floor area 

TAREA = z(AREA(N)*MULT(N)), for N*1 to NSPAC 

b) : Total volume 

TVOL = Z(V0L(N)*MULT(N)), for N=1 to NSPAC 

c) Total cooling cfm at both temperature conditions 

TCFMl = z:(CFMl*MULT(N)), for N=1 to NSPAC 
TCFM2 = E(CFM2*MULT(N)),.for N=1 to NSPAC 

d) Total heating cfm at both temperature conditions 

TCFM3 = e(CFM 3*MULT(N)), for N=1 to NSPAC 
TCFM4 = e(CFM 4*MULT(N)), for N=1 to NSPAC* 

3. For the building peak load conditions, print the following: 

a) Identification information, i.e., page header, 
page number, FAC, CITY, number of spaces in 
building, TAREA and TVOL. 
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b) Time and conditions for summer peak load, I.e., 
dry-bul b temperature , wet-buTb temperature , hour 
of day, month, and day of month. 

c) Time and conditions for winter peak load, I.e., 
dry-bulb temperature, wet-bulb temperature, hour 
of day, month, and day of month. 

d) Components of sumner and winter peak load in order 
indicated In Figure 3.21. 

e) Subtotals for sunnier sensible (SUMTl), summer 
latent (SUMT3) and winter sensible (SUMT2) loads 
which are simply the sumnatlons of their respec- 
tive columns. 

f) Return air load created by light heat which is 
picked up by return air as It passes through a 
ventilated light fixture. 

g) Fan heat load 

QFAN = 0.4014 * TCFMl * FPRES 

h) Ventilation air load for summer peak cooling hour 

QSOAS = 14.4 * DENS * CFMSF * TAREA 

* (Tl(17) - 75.0) 

QLOA = 63000. * DENS * CFMSF * TAREA 

* (Tl(19) - 0.0093) 

where it Is assumed that 75°F and 50% R.H. 
are the average conditions within the build- 
ing during the peak cooling hour. 

1) Ventilation air load for winter peak heating hour 
QSOAW = 14.4 * DENW * CFMSF * TAREA 

* (T2(17) - 75.0) 

j) Total loads for sunnier sensible, summer latent 
and winter sensible loads which are simply the 
sunmations of their respective columns. 

k) Total building cooling load expressed in Btu/hr 
and tons, which Is the sunmatlon of the total 
summer sensible and latent loads. 
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l) Total building Keating load expressed in Btu/hr 
and lOOO's Btu, tKe total winter sensible load. 

m) The supply air cfm and cfm per square foot required 
for a variable volume system to meet the building 
peak sensible heating and cooling loads for two 
values each of required supply air temperatures. 

• Cool ing 

TCFM5 = SUMT1/{14.4*DENS*(75.0 - DTC(l)) 

TCFM6 = SUMT1/(14.4*DENS*(75.0 - DTC(2)) 

TSQFT5 = TCFM5/TAREA 
TSQFT6 = TCFM6/TAREA 
a Heating 

TCFM7 = -SUMT2/(14.4*DENW*{DTH(1) - 75.0)) 

TCFM8 = -SUMT2/(14.4*DENW*(DTH(2) - 75.0)) 

TSQFT7 = TCFM7/TAREA 
TSQFT8 = TCFM8/TAREA 

n) The supply air cfm and cfm per square foot required 
for a constant volume system to meet the building 
peak sensible heating and cooling loads for two 
values each of required supply air temperatures. 

• Cooling 

TCFMl = see 2c. 

TCFM2 = see 2c. 

TSQFTl = TCFMl /TAREA 

TSQFT2 = TCFM2/TAREA 

• Heating 

TCFM3 = see 2d. 

TCFM4 = see 2d. 

TSQFT3 = TCFM3/TAREA 

TSQFT4 = TCFM4/TAREA 

Print a table (Figure 3.22) summarizing the maximum heating 
and cooling capacity required for each space. 
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RMRSS 


A subroutine that sets the weighting factors required to delay the 
heat transfer between the space and the heating-cooling equipment. 

INPUT 

IL : Type of lighting fixture (see Figure 3.23) 

= 1 Fluorescent fixture recessed into suspended 
ceiling, ceiling plenum not vented. 

= 2 Fluorescent fixture recessed into suspended ceiling, 
return air through ceiling plenum. 

= 3 Fluorescent fixture recessed into suspended 

ceiling, supply and return through ceiling plenum. 

= 4 Incandescent lights exposed in the room air. 

W : Weight of floor, Ibs/sq ft 

PERCT : Percent of light heat that goes directly into space 

(obtain from manufacturer's data) 

OUTPUT 


RMRISl 

RMRISC 

RATRIS 

RMRPSl 

RMRPSC 

RATRPS 

RMRXl 

RMRXC 

RATRX 

RNRGl 

RMR6C 

RATRG 


! Weighting factors for relating light heat entering 
space to room cooling load. 


) Weighting factors relating heat released into plenum by 
lights to return air heat pick-up. 


1 Weighting factors relating heat gain through walls 
and roofs to room cooling load. 


1 Weighting factors relating solar heat gain through 
glass to room cooling load. 
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NOT VENTED VENTED TO VENTED TO 

RETURN AIR SUPPLY AIR 

RETURN AIR 



FLUORESCENT FIXTURES 


VENT=4 

INCANDESCENT 

LIGHT 


Figure 3.23 TYPES OF LIGHT FIXTURES 
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CALCULATION SEQUENCE 

1. Set of the type of construction on basis of weight of floor. 

If W < 50, set IW = 1 (Light) 

If 50 < W < 100, set IW = 2 (Medium) 

If 100 < W, set IW = 3 (Heavy) 

2. Set value of weighting factors for handling solar heat gain through 
glass. 


Table 3.5 


WEIGHTING 

FACTOR 

SYMBOL 

TYPE 

OF CONSTRUCTION 

LIGHT 

MEDIUM 

HEAVY 

RMRGl 

0.224 

0.197 

0.187 

RMRGC 

-0.044 

-0.067 

-0.097 

RATRG 

0.82 

0.87 

0.91 


Source: "Procedure For Determining Heating and Cooling 

Loads For Computerized Energy Calculations", ASHRAE, 1971 
Revised Edition. 

3. Set value of weighting factors for handling wall and surface 
heat gain. 


Table 3.6 


WEIGHTING 

FACTOR 

SYMBOL 

TYPE OF CONSTRUCTION 

LIGHT 

MEDIUM 

HEAVY 

RMRXl 

0.703 

0.681 

0.676 

RMRXC 

-0.523 

-0.551 

-0.586 

RATRX 

0.82 

0.87 

0.91 


Source: "Procedure of Determining Heating and Cooling 

Loads For Computerized Energy Calculations", ASHRAE, 1971 
Revised Edition. 
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4. If IL = 1 or 4, set PERCT = 100.0; otherwise leave user defined 
as is. 

5. Set value of weighting factors required for handling space heat 
gain from lights. Obtain values of RMRISl, RMRISC and RATRIS 
from Table 3.7, and then modify the first two for percentage of 
light heat that goes into space as follows: 

RMRISl = RMRISl * (PERCT/100. ) 

RMRISC = RMRISC * (PERCT/100.) 

6. Check for ceiling plenum and set weighting factors accordingly 
for handling heat added to plenum as a function of lighting 
load. 

a) If IL = 1 or 4, there is no return plenum, therefore set 

RMRPSl =0.0 
RMRPSC =0.0 
RATRPS =0.0 

b) IfIL=2or3, there is a return plenum, therefore obtain 
values of RMRISl, RMRISC and RATRIS from Table 3.7 and then 
perform following 

RMRPSl = RMRISl * (100. - PERCT)/100. 

RMRPSC = RMRISC * (100. - PERCT)/100. 

RATRPS = RATRIS 
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Table 3.7 


WEIGHTING TYPE OF CONSTRUCTION 

FACTOR 

SYMBOL LIGHT MEDIUM HEAVY 

Type 1 - Fluorescent fixture recessed into 
suspended ceiling, ceiling plenum 
not vented. 

RMRISl 0.53 0.53 0.53 

RMRISC -0.35 -0.40 -0.44 

RATRIS 0.82 0.87 0.91 


Type 2 - FI orescent fixture recessed into 
suspended ceiling, return air 
through ceiling plenum. 


RMRISl 

0.59 

0.59 

0.59 

RMRISC 

-0.41 

-0.46 

-0.50 

RATRIS 

0.42 

0.87 

0.91 


Type 3 - Fluorescent fixture recessed into 
suspended ceiling, supply and 
return air through fixtures. 


RMRISl 0.87 0.87 0.87 

RMRISC -0.69 -0.74 -0.78 

RATRIS 0.82 0.87 0.91 

Type 4 - Incandescent lights exposed in the 
room air 

RMRISl 0.50 0.50 0.50 

RMRISC -0.32 -0.37 -0.41 

RATRIS 0.82 0.87 0.91 


Source: "Procedure For Determining Heating and Cooling 

Loads for Computerized Energy Calculations, ASHRAE, 1971, 
Revised Edition. 
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SCHDUL 


A subroutine for reading a generating operating schedule to be used 
for people and lights and equipment. 

INPUT 


CFKSCH 

CLTSCH 

FISCH(J,K) 


: People schedule requirement, no = 0, yes = 1 

: Lighting schedule requirement, no = 0, yes = 1 

: Coded schedule number, where 


1 

KARD 

KAGIT 

KKMAX 

OUTPUT 

SCHFLK(I,J,K) 


SCHLIT(I,J,K) 


J = 1, people schedule 

2, light schedule 

3, equipment schedule 

K = 1, Sunday 

2, Weekday 

3, Saturday 

4, Holiday 

5, Special period at year end 
Space schedule type number 
Logical unit number for card input 
Logical unit number for line printer 
Number of types of daily schedules used 


Hourly people schedule where 

1=1 to 3, space schedule type number 

J = 1 to 9, type of day (Sunday through Saturday, 
Holiday and Special) 

K = 1 to 24, Hour of day 

Hourly lighting schedule where I, J and K have 
same definitions as above. 


SCHEQ(I,J,K) 


Hourly equipment schedule where I, J and K have same 
definitions as above. 
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CALCULATION SEQUENCE 


1. Fill in matrix for standard non-standard schedules; for each of 
people, lights and equipment performance following: 

a) For each type of day, if FISCH £ 10, standard schedule 
(Figure 3.24) is desired, therefore enter standard 24 hour 
schedule into appropriate matrix, i.e. , SCHFLK, SCHLIT, or 
SCHEQ. 

b) For each type of day, FISCH > 10, a user defined schedule is 
desired; therefore, if the non-standard schedule has not been 
previously defined, read it from card input and enter it into 
appropriate matrix, i.e., SCHFLK, SCHLIT or SCHEQ. 

2. Echo schedules. 


SCHED 

A subroutine which assigns the proper lighting, people and equipment 
schedules to spaces and corrects time for Daylight Saving time. 


INPUT 


IDST 

: Daylight Saving Time indicator = g 

ITIME 

: Hour of day, 1 to 24 

IDOW 

: Day of Week, 1 to 7 

IFEAST 

: Holiday indicator 4 ° Ho11dl^“^ 

JC 

: Christnms period in-Sicator "crrisJ:ll‘:erir 

OUTPUT 


J 

: Type of day, 1 to 9 

K 

: Corrected time, 1 to 24 


CALCULATION SEQUENCE 

1. a) If JC = 1, J = 9 

b) If JC = 0 and IFEAST = 1, J = 8 

c) If JC = 0 and IFEAST = 0, J = IDOW 

2. a) If IDST = 0, K = ITIME 
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b) If IDST = 1 and ITIME = 1 . K = 24 

c) If IDST = 1 , and ITIME > 1 , K = ITIME 

SEARCH 

A subroutine which indicates a shadow pictorial output is desired 
for the present hour and surface. 

INPUT 

N : Number of pictorial outputs desired 

NA : Month for which pictorial outputs are desired 

NB : Hour for which pictorial outputs are desired 

NC : Surface index for which pictorial outputs are desired 

lA : Present month number 

IB : Present hour number 

IC : Present surface index number 

J : Pictorial output indicator 

CALCULATION SEQUENCE 
For I = 1 to N 

1. If NA(I) = lA and NB(I) = IB and NC(I) = IC, then J = 1. 

2. If NA(I) not equal to lA or 

NB(I) not equal to IB or 
NC(I) not equal to IC, 

Then J = 0 
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SETBAK 


A sub-routine which calculates coordinates of vertices 
for three added shading surfaces. Window must be a rectangle. 

only in windows. 


Coordinates of upper left hand 
window vertex 

Height of window, feet 
Width of surface, feet 
Azimuth angle of surface, degrees 
Tilt angle, degree 
Amount of set back, inches 
Border, inches 


Coordinates of four vertices of three surfaces 


CALCULATION SEQUENCE 

1. Let S = SBK/12.0 
D = BD/12 
CA = COS (A) 
CB = COS (B) 
SA = SIN (A) 
SB = SIN (B) 

H = HH+D 
W = WW+D+D 


VERTEX 1 


of the first shading surface 

XV (1,1) 

= 

XX+D*CA 

YV (1,1) 

= 

YY-D*SA 

ZV (1,1) 

— 

11 

VERTEX 2 


of the first shading surface 

XV (1,2) 

- 

XX+D*CA+S*SA 

YV (1,2) 

= 

YY-D*SA+S*CA 

ZV (1,2) 


11 

VERTEX 3 


of the first shading surface 

(also vertice 2 of the second shading surface) 

XV(1,3) 

= 

XX+S*SA-H*CB*SA 

YV(1,3) 

= 

YY-D*SA+S*CA-H*CB*CA 

ZV(1,3) 

= 

ZZ+H*SB 


This routine 

INPUT 

XX : 

YY : 

11 : 


HH 

WW 

A 

B 

SBK 

DB 

OUTPUT 

XV(I,K) 

YV(I,K) 

ZV(I,K) 
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SHADOW 


A major portion of the air conditioning load on a building comes from 
solar radiation. To improve the accuracy of load assessment and thus permit 
a less conservative, and therefore less expensive, cooling system design, the 
air conditioning engineer must know how much of a building is shaded and 
how much lies exposed to the sun's rays. 

Development of the digital computer has now made shading amenable 
to rational solution. In the program, a newly-developed technique is 
utilized. This technique attacks the general problem and treats com- 
plicated shapes with as much ease as it deals with simpler configurations 
The basis of the technique is the representation of all architectural 
forms as a series of plane polygons. Even curved surfaces can be so 
represented with great accuracy. For example, a sphere may be approximated 
by the 20 sides of a regular icosohedron. This approximation gives a 
maximum error of only 3 % in the shadow area cast by the sphere. 


The output of the computer program is a pictorial display of the 
shadows and the surface upon which they are cast. Shadow areas are also 
printed as floating point numbers. Where shadows are cast by perforated 
structures, e.g., trees, the pictorial output shows the shadow as a 
mottled pattern. 


INPUT 

NVERTF 

XVERTF 

YVERTF 

ZVERTF 

NUXDIV 

NUYDIV 

NP0LY 

NVERT 

PERM 

XVERT 

YVERT 

ZVERT 


Number of vertices on receiving Polygon (R.P.) 

X - coordinates of receiving Polygon (R.P.) 
y - coordinates of receiving Polygon (R.P.) 
z - coordinates of receiving Polygon (R.P.) 

Number of x - divisions 
Number of y - divisions 
Number of shading Polygons (S.P.) 

Number of vertices of each shading Polygon (S.P.) 
Permeability of each shading Polygon (S.P.) 

X - coordinates of shading Polygon vertices (S.P.) 

y - coordinates of shading Polygon vertices (S.P.) 

z - coordinates of shading Polygon vertices (S.P.) 
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NPOLYD 

: Number of shading Polygons deleted 

IDLETE 

: Index number of deleted Polygons 

NPOLYA 

: Number of added Polygons 

NVERTA 

: Number of vertices of added Polygons 

PERMA 

: Permeability of added S.P.'s 

XVERTA 

: x-coordi nates of added Polygons 

YVERTA 

: y - coordinates of added Polygons 

ZVERTA 

: z-coordi nates of added Polygons 

RAYCOS 

: Direction cosines of solar ray 

ARECI 

: Area of receiving Polygon 

LOOK 

: Picture? |o = No picture 


IJ = Picture 

OUTPUT 

ASHADE : Shaded area of receiving Polygon 

CALCULATION SEQUENCE 

1. Coordinate Transformation 

Designate the polygons which cast shadows as shading polygons (S.P.) 
and those upon which shadows are cast as receiving polygons (R.P.). The 
vertex coordinates of each R.P., and its relevant SP's are transformed 
from a base coordinate system, xyz, to a new coordinate system, x'y'z', 
with origin 0 attached to the plane of the R.P. The first three vertices 
Vi» V?» V3, of the R.P. being examined are used to define this new 
coordinate system. The x' axis passes through V2 and V3, while the y'axis 
passes through Vi. In order that the z' axis point outward from the surface, 
angle ViV^V3 must be convex and the vertices must be numbered counterclockwise. 
The equation of transformation is written in matrix form as 

x' = A(x-Xq) 

where Xg = X2 + y(x2"X2) 

Y > A Scalar = {X1-X2) • (X3”X2)/(X2-X2) • {X2-X2) 
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1st row of A = (x 3 "Xq)/ [x^-XqI 
2nd row of A = {x-|-Xq)/ Ix-j-XqI 
3rd row of A = 1st row of a x 2nd row of A 

Solar altitude, a, and azimuth, g, must also be transformed, into 
the solar direction vector, as 

( Sing • Cosa 
Si no 

Cosg Coso/ 

2. Clipping Transformation 

Any part of an S.P. whose z' is negative cannot cast a shadow on 
the R.P. These "submerged" portions of the S.P.'s must be clipped off, 
prior to projection, lest they project "false" shadows (see Figure 3.25). 
This is done by finding, through linear interpolation, the points A and B, 
on the perimeter of the S.P. which pierce the plane of the R.P., and taking 
these points as new vertices. All submerged vertices are deleted. This 
results in a new polygon with line AB as a side, which will project only 
real shadows. 



Figure 3.25 CLIPPING 
3. Projection Transformation 


To simulate the actual casting of a shadow, the following trans- 
formation projects, along the sun's rays, all the vertex points of the 
transformed and clipped R.P. 's 


X = x' 



z' 



4. Enclosure Test 


The coordinate, clipping and projection transformation have 
converted all R.P. and S.P.'s in space into two dimensional figures in the 
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R.P. plane. It remains only to find the points in the R.P. plane which lie 
Inside the R.P. and inside one or more of the S.P. projections, i.e., points 
of the R.P. which are shaded. At this point, the two-space XY is divided 
into grid and the center of each element of this grid is tested for 
enclosure by the R.P. and the S.P. projections. A point, P, whose coordi- 
nates are XpYp, is inside the polygon V], V 2 ,...Vf, if the following 
Inequality holds. 

Z A0. ^ 0 
i=l ’ 


The angular change, A6i, subtended at P by the ith side, and counted 
positive counterclockwise, is given by the following formulae. 




if i < n 
if i = n 


in 1st , ^ ^P~^i in 2nd 

quadrant ^P“^i'*’^i"^P quadrant 

in 3 + ^*“^P in 4th 

quadrant ^i"^p'*’^p"^i quadrant 

These approximate formulae, which express A0^ in right angles, replace 
the time-consuming square root and arcosine computer library routines. They 
have, by set theory, been proved adequate for the purpose. 

5. Display Matrix and Typical Problem 

An alphameric matrix is created corresponding to the grid elements 
In the R.P. plane. A blank component represents a grid element either out- 
side the R.P. or exposed on the sun. An asterisk component represents a 
shaded grid element or one on the R.P.'s boundary. Grid elements shaded 
by a transmissive structure are randomly asterisked with a probability 
equal to the fraction of incident light stopped by the shading structure. 
Figure 3.26 shows the solution of a typical problem involving a trans- 
missive structure. Also see Figures 3.8 to 3.11. 


r 

®1 A Vp-Y, 

|2 " 
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Figure 3.26 THE COMPUTER OUTPUT OF A TYPICAL PROBLEM 


$HG 

A subroutine which calculates solar heat gain through windows. 


INPUT 

RDIR 


Intensity of direct solar radiation normal to window, 
Btu/hr-sq ft 


BS 

BG 

FWS 

FWG 

RO 

RA 

RI 

++ If more 


; Sky brightness, Btu/hr-sq ft 

: Ground brightness, Btu/hr-sq ft 

: Form factor between the window and the sky++ 

: Form factor between the window and the ground++ 

(Thermal resistance at outside surface, air space, and 
* /inside surface, sq ft-hr-®F/Btu 

accurate data are not available, use FWS = FWG = 0.5. 
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SHAW : Sunlit area factor 

SC : Shading coefficient if the window is shaded by 

drapes or blinds .or if it has an interpane 
separation of more than 1 inch 


TDIR 
TDIF 
ADIRO, 


* (Transmission factors of direct and diffuse 
radiation 




ADIRI 


outer 


.inner 


ADI FI, inner 

Note: 


T 

TDB 

OUTPUT 

QRAY 

QCON 


Absorption factors of direct solar radiations 
through outer and inner window pane 


J 


[Absorption factors of diffuse radiation through 
. [outer and inner window pane 

When the value of SC is given, these Transmission and 
Absorption factors should be for the standard 1/8" thick 
double strength glass (or k*A = 0.05 of TAR) regardless 
of the type of glass used. 

Space temperature, °R 

Ambient outside air temperature, °R 


Radiant heat gain through glass, Btu/hr-sq ft 
Conductive heat gain through glass, Btu/hr-sq ft 


CALCULATION SEQUENCE 


1. Calculate inward flowing fraction of the radiation absorbed by the 
inner and the outer pane, respectively. 

FI = (RO + RA)/(R0 + RA + RI) 

FO = R0/(R0 + RA + RI) 

2. Calculate components of solar load 
a) Direct 

QDIR = SHAW * RDIR 
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b) Diffuse 

QDIF = BS * FWS + BG * FWG 

c) Transmitted 

QTRANS = QDIR * TDIR + QDIF * TDIF 

d) Absorbed 

QABS = QDIF * (FO * ADIFO + FI * ADIFI) 

+ QDIR * (FO * ADIRO + FI * ADIRI) 

3. Calculate solar heat gain through glass 

If SC = 0, QRAY = QTRANS + QABS 
If SCy 0. QRAY = SC * (QTRANS + QABS) 

4. Calculate heat conduction through glass 

QCON = U * (TDB-T) 

U = 1.0/(R0 + RA + RI) 

STNDRD 

A subroutine that generates the response factor data required for 
standard wall and roof constructions. 

INPUT 

I STD : Standard surface number, 1 to 16 

OUTPUT 

RI : Common ratio 

NRFT ; Number of response factor terms 

RFX : X-Response factor set, Btu/hr-sq ft-®F 

RFY : Y-Response factor set, Btu/hr-sq ft-*F 

RFZ : Z-Response factor set, Btu/hr-sq ft-®F 

See Figures 3.27 through 3.42 for a description of standard walls 
and roofs built into the subroutine as well as the accompanying values 
of RI. NRFT, RFX, RFY, and RFZ. 
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Figure 3.30 WALL HPE 4 
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description of construction 


9 > (M 
V 

UJUIf-t 
U — 

K a. o 
u CO ae 

2 < K 

o a; o M 
u M s < 
< 

• c (j 

2*30 
M z CO M 
M 0 . <0 
(Si >> 2 

•4 (St (9 M 


M K ^ tt O tt I 

•4 O tf) K e 0^ » : 
^ d* 9^ e eg lO o i 
e o in M o ( 
O' v 4 m m 0 ^ « 1 
o o m eg eg vO I 
i(g(no^»g)|^^l 
o ^ N eg m o K I 
K w A eg r4 o I 
tn eg o o o o o I 


o e o o o e o I 


10 tf) o K ^ o I 

0 ^ O 9 ^ K o #4 O I 

o r- ^ o %9 o K I 
m «o o to m *o po ( 
go K 10 o <4 eg « I 
\o eg o 0v PC m < 

>ioin(geg« 4 f 40 v( 

^ o go N o o g> < 
o lo in o K> eg «H I 
o o o o o o o < 

o o o o o e e I 


>• 3 

H u o o o o 

M • • • • 

(O (C K O O O 

2 uj «o «n 

w c. 

a 

(S 


> «-. 9 fO 

« o: A (T* 

^ X 40 O O O 

o «« • • • • 

3 O O O O 

a X 
z u 
o a. 
u 

3 


w \T in g> «4 «4 4 

9« f-p O <4 CO • 
•O CO CD 0 >9 O ; 
h* O' A 0 in o « 
A O' O m 0 0 4 

eg 0 0 tn *4 A I 

Kcg o 0 o^ o m I 

O PO O' A 0 A I 
0 0 O' r 4 K in P 
O' ^ «4 f4 O O < 

<H fH O O O O I 
I • I I I 


0 > 

(/) o o 

uj o eg 

Z o ^ 

^ H- O O O O 

O 4 L • • • • 

W *4000 

X 


3 o^cgA^in 0 t*- 0 O'o 
O w4 


3-102 


Figure 3.32 WALL TYPE 6 
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NUHBErt OF HOURS REOUIKEO TO REACH COMMON RATIO 
number of RESPONSE FACTORS PER SET = 2N 
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OeSCRIPTION OF construction 
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Figure 3.36 WALL TYPE 10 
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Figure 3.37 ROOF TYPE 1 
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Figure 3.38 ROOF TYPE 2 
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DESCRIPTION OF CONSTRUCTION 
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NUMBER OF hUURS REQUIRED TO REACH COMMON RATIO 
number OF RESPONSE FACTORS PER SET = 18 
COMMON RATIO = 0.6786596114 




u a. 
u 

2 — 

K o e e ^ 

CO •« • • • • 


CO u. 

u 

oe a 

CO 


oc 

X 


^ 9 ^ «0 M «0 
0> #4 «0 K lO #4 
w 3^ m K ^ H 
o cy ^ w e 
^ 9 ffi o ± 
K M 0^ 10 (y lO 
oi o Cl h> y> 
h> ^ to tn h> <o 
m m K lo p 4 e 
CO m v4 o e e 




U. 





K u. 

w 





< — 






u «« 

K 





X CD 

u. 





.J O \0 o 






O «* «H ^ CM O 

<s 





N4 • • • • 

(0 


« 40 CM <y 0^ M 



0.0^0000 



to A O ^ cO ^ 



1-4 UI 



o v4 m 9^ 


2 

U CL 

QC 


O r4 0^ K> 0> O 


O 

u 

X 


K 0^ K m « o> 


M 

0. 3 



i^ o o m ^ po 


K 

CO H 



^ 3* K> K CM 


u 

CD 

QC 


3* CM K eg o e 


3 


UI 


w eg o o o o 


o; 


0. 

<0 

e o o o o o 


K 



oe 

• ••••• 


<0 

►- 

3 

o 

o o o o o o 


2 

U. 


»- 



O 


CD 

u 


in 

u 

>- 3 


< 




»- u o tn o o 


u. 



u. 

M • « • • 




II 

o 

(0 ce e o e o 

O 

UI 




2 u « in 

• 

CO 


o 

2 

W CL d* v4 

o 

2 


m 

O 

o 


O 


1- 

M 

CD 

M 

0. 

^ \0 N e CD 0^ 

< 




CO 

«4 9^ ^ \D sO ^ 

flC 

(t 


U 

u 

^0 fO CO lO sO 




u 

QC 

r«- *o o m sD o 

2 

o: 


2 


to to 9^ w4 e> 

O vO 

u 


< 


9^ CO ^ >0 

c 

CO 

li. 

h- 


X m 9^ in o o e 

c 

ui 


u 


M m 9 o o o 

O II 

o 


3 


o m e o e e 

u 


> ►- 

a 


fO eg o o o o 



H- U. 

2 


• ••»•• 

X u 


►4 *■» 

O 


0 0 0 0 0 9 

U CO 


> ^ o m o 

U 



< 


►4 q: o <y r- 




UJ a 


H X o o ^ o 

u 



ac uj 


(j — • • • • 

< 



0. sO 


*3 nO O O O 

r. 



O K. 


a X <w 

a: 



►- CO 3- 


2 UJ 

Uf 



X in 


O 0. 

X 



o o in 


u 

»- 



UJ K ^ 


3 




ac o 0^ 


►- 




*4 < 


CD 



X 

3 U. «4 
9 to 

UI u • 


CO 



3 o -4 eg H) m 

X V) o 


(0 o o o 



o 

2 


u lO o cy 



X 

(O o 


2 o o ^ 




cr 0 . II 


aD H o m o o 




3 (0 


O iL • • • • 




QUO 


M e o o o 




X q; M 


X 






K 




u. u. < 
o o cr 


3C 




oc tie 2 


DC UJ 




W Ui o 


Ui « 




(SOX 


> X r4 C\| PO ^ 




XXX 


<3 




3 3 0 


J 2 




2 2 0 


3-1 n 


Figure 3.41 ROOF TYPE 5 



description of construction 
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SUNl 


A subroutine to calculate the daily solar radiation data. 


INPUT 


IDOY 

TL 

OUTPUT 

SUNRAS 

DEABC(l) 

DEABC(2) 

DEABC{3) 

DEABC{4) 

DEABC(5) 


Day of Year, 1 to 366 
Tangent of Latitude -angle 

Hourly angle (radians) when solar altitude is zero 

Tangent of declination angle, TAN6 

Equation of time, ET, hours 

Apparent solar constant. A, BTU/hr-sq ft 

Atmospheric extinction coefficient, B 

Sky diffuse factor, C 


Table 3.8 lists, as function of date, five variables related to solar 
radiation. These variables are declination angle, 5; the equation of time, 
ET; the apparent solar constant. A; the atmospheric extinction coefficient, 
B; and sky diffuse factor, C. 


Table 3.8 VALUES OF 5, ET, A, B AND C FOR NORTHERN HEMISPHERE 


DATE 

6 

DEGREES 

ET 

HOURS 

A 

Btu per 
(hr)(sq ft) 

B 

AIR MASS"^ 

C 

Jan. 21 

-20.0 

-.190 

390 

0.142 


Feb. 21 

-10.8 

-.230 

385 

0.144 


Mar. 21 

0.0 

-.123 

376 

0.156 


Apr. 21 

11.6 

.020 

360 

0.180 

0.097 

M^ 21 

20.0 

.060 

350 

0.196 

0.121 

June 21 

23.45 

-.025 

345 

0.205 

0.134 

July 21 

20.6 

-.103 

344 

0.207 

0.136 

Aug. 21 

12.3 

-.051 

351 

0.201 

0.122 

Sept. 21 

0.0 

.113 

365 

0.177 

0.092 

Oct. 21 

-10.5 

.255 

378 

0.160 

0.073 

Nov. 21 

-19.8 

.235 

387 

0.149 

0.063 

Dec. 21 

-23.45 

.033 

391 

0.142 

0.057 
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Table 3.8 could be stored in the computer memory, but this would 
necessitate an interpolation procedure. In order to avoid such a problem 
and to save computer core, Tan6, ET, A, B and C are expressed in Fourier 
Series form and the values are calculated as a function of the day of the 
year, d, from the following truncated Fourier series. 


Tan 6 
ET 
A 
B 
C 




where u 


d 


AQ+A^*Cos(o)*d) + A2*Cos(2*o)*d) + A3*Cos(3*o)*d) 
+B^*Sin(ai*d) + B2*Sin(2*o)*d) + B3*Sin(3*o)*d) 

= 2*tt/366. = 0.01721 
= IDOY 


The proper Fourier coefficients are given in Tabel 3.9. 


Table 3.9 FOURIER COEFFICIENTS 



% 

''i 

A2 

^3 



»3 

Tan5 

-.00527 

-.4001 

-.003996 

-.00424 

.0672 

0.0 

0.0 

ET 

0.696x10"^ 

. 00706 

-0.0533 

-0.00157 

-0.122 

-0.156 

-.00556 

A 

368.44 

24.52 

-1.14 

-1.09 

.58 

-0.18 

.28 

B 

.1717 

-.0344 

.0032 

.0024 

-.0043 

0.0 

-.0008 

C 

.0905 

-.0410 

.0073 

.0015 

-.0034 


-.0006 


CALCULATION SEQUENCE 

1. Calculate Tan5, ET, A, B and C using the following equation where 
I varies from 1 to 5 and coefficients take on values shown in 
Table 3.9. 

DEABC(I) = Aq + A^ * Cl + A2 * C2 + A3 * C3 
+ B^ * SI + B2 * S2 + B3 * S3 

Where 

Cl = cos (o)*d) 

SI = sin (o)*d) 
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and by trigometric identity 

C2 = cos (2*a)*d) = C1*C1-S1*S1 
C3 = cos (3*o)*d) = C1*C2-S1*S2 

52 = sin (2*co*d) = 2*S1*C1 

53 = sin (3*o)*d) = C1*S2+S1*C2 
2. Calculate sun rise angle 

SUNRAS = cos“^ (-TL*DEABC(1)) 

which is obtained from general equation 

sin(h) = sin(6)*sin(L)+cos(6)*cos(L)*cos(t) 

(this equation is RAYC0S(3); see subroutine SUN2 for 
derivation) 

where 

h = solar altitude, radians 
L = latitude, radians 
t = hour angle, radians 

and where SUNRAS is gotten by setting h=0, and solving for t. 
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SUN2 


A subroutine 

INPUT 

H : 

DEABC(l) : 
DEABC(2) : 
DEABC(3) : 
DEABC(4) : 
DEABC(5) : 
SL : 

CL : 

CN : 

SA : 

CA : 

OUTPUT 

RAYCOS(l) : 
RAYC0S(2) : 
RAYC0S(3) : 
RDN : 

BS : 


to calculate the hourly solar radiation data. 

Hour angle, radians (calculated in main program) 

Tangent of declination angle 
Equation of time, hours 
Apparent solar constant, Btu/hr-sq ft 
Atmospheric extinction coefficient 
Sky diffuse factor 
Sin of latitude angle 
Cosine of latitude angle 
Clearness number 
Sin of building azimuth angle 
Cos of building aximuth angle 

Direction cosine of sun in x-direction (WEST) 

Direction cosine of sun in y- direction (SOUTH) 

Direction cosine of sun in z-di recti on (UPWARD) 

Intensity of direct normal solar radiation, Btu/hr-sq ft 
Brightness of sky, Btu/hr-sq ft. 
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CALCULATION SEQUENCE 


1. Calculate direction cosines of sun 



From the schematic presented above, the direction cosines are as 
follows: 

RAYCOS(l) = cos(w) = cos(h)*sin(AZ) 

RAYC0S(2) = cos(s) = cos(h)*cos(AZ) 

RAYC0S(3) = SIN(h) 

where h = altitude of sun measured from horizontal, 

degrees 

AZ = azimuth of sun measured from south towards 

west, degrees 

From spherical trigonometry , the following relationships hold 
sin(h) = sin(6)*sin(L)+cos(6)*cos(L)*cos(t) 
cos(AZ)=-(sin(6)*cos(L)-cos(6)*sin(L)*cos(t))/cos(h) 
sin(AZ)= + (cos(6)*sin(t))/cos(h) 


J. L. Threlkeld, "Thermal Environmental Engineering", Chapter 14 - Solar 
Radiation, Prentice-Hall Inc., 1962. 
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where 6 = declination of sun, degrees 
L = station latitude, degrees 

t = hour angle of sun measured from south towards west, 
degrees 

Substitution gives 

RAYCOS(l) = +cos(6)*sin(t) 

RAYC0S(2) =-sin((S)*cos((j))+cos(6)*sin(j>)’*bos(t) 

RAYC0S(3) = sin(6)*sin((j))+cos(6)*cos{(|i)*cos(t) 

We must build into these equations the ability to account for 
building rotation, which is represented by the building azimuth angle, A. 
This rotation correction is about the z-axis and therefore will only 
affect RAYCOS(l) and RAYC0S(2). From trigonometry, the new values after 
rotation can be found by using the relationships 

X =-x'*cos(A) + y'*sin(A) 

y =-x'*sin(A) - y'*cos(A) 

Substitution yeilds 

RAYCOS(l) = -(cos(6)*sin(t))*cos{A) 

-(sin(6)*cos((j))-cos(6)*sin((j>)*cos(t))*sin(A) 

RAYC0S(2) = -(cos(5)*sin(t))*sin(A) 

+(sin( 6 )*cos( 4 >)-cos( 6 )*sin((j>)*cos(t))*cos(A) 

RAYC0S(3) = sin{(S)*sin{(<))+cos(6)*cos((j))cos(t) 

To get into form in subroutine let 


COS(6) 

= CO 


sin(6) 

= SO 


cos (A) 

= CA 


sin(A) 

= SA 


COS((|>) 

= cos(L) 

= CL 

sin((j)) 

= sin(L) 

= SL 

cos(t) 

= cos(h) 

= CH 

sin(t) 

= sin(h) 

= SH 
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Finally, by substitution of these identities, 

RAYCOS(l) = -CD*SH*CA-SD*CL*SA+CD*SL*CH*SA 
RAYC0S(2) = -CD*SH*SA+SD*CL*CA-CD*SL*CH*CA 
RAY COS (3) = SD*SL+CD*CL*CH 

2. Calculate intensity of direct normal solar radiation 

a) If RAYC0S(3) is < 0.001, sun has not risen yet, and 
therefore set 

RAYC0S(3) =0.0 
RDN = 0. 0 

BS =0.0 

b) If RAYC0S(3) is greater than 0.001, sun is up, and 
therefore 

RDN = DEABC(3)*CN*EXP(-DEABC(4)/RAYC0S(3)) 
BS = DEABC(5)*RDN/(CN*CN) 

Value of clearness number, CN, can be gotten from Figure 3.43 



Figure 3.43 CLEARNESS NUMBERS OF NON- INDUSTRIAL 
ATMOSPHERE IN UNITED STATES 
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SUN3 


A subroutine which calculates solar data depending upon orientation 
of a surface. 

INPUT 

WT : Surface tilt angle from horizontal, radians 

WA : Surface azimuth angle, radians, clockwise from 

y-axis of building 


RAYCOS 

RDN 

BS 

ROG 

OUTPUT 

GAMMA 

ETA 

RDIR 

RDIF 

RTOT 

BG 


Direction cosines of sun's ray 

Intensity of direct normal solar radiation, Btu/hr-sq ft 

(already corrected for cloud cover) 
Brightness of sky (diffuse sky radiation on horizontal 
surface, Btu/hr-sq ft 

Ground reflectivity 


Cosine of angle between zenith and outward normal of 
surface 

Cosine of the solar angle of incidence, n 

Intensity of direct solar radiation on surface, 
Btu/hr-sq ft 

Intensity of diffuse radiation on surface, Btu/hr-sq ft 
Intensity of total radiation on surface, Btu/hr-sq ft 
Brightness of ground, Btu/hr-sq ft 


For a pictorial illustration of the various angles referred to in SUNl, 
SUN2 and SUN3, see Figures 3.44 and 3.45. 


CALCULATION SEQUENCE 

1. Calculate brightness of ground 

BG = ROG * (BS+RDN*RAYC0S(3)) 

2. Calculate the direction cosines (a, B and y) of the normal to 
the surface. By definition 
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Normal to Horizontal Surface 



Surface (Wall) in Considerati on 
N 

Horizontal Surface 


Solar 

Altitude, 

SALT 


Projection of 
Sun's Ray on 
Horizontal y 
Surface / Normal to 

Surface (Wall) 
in Consideration 

Figure 3.44 DEFINITION OF ANGLES 


Projection of Normal to Surface (Wall) in 
Consideration on Horizontal Surface 



Figure 3.45 SCHEMATIC SHOWING APPARENT PATH OF SUN AND 
HOUR ANGLE 



a = cos(WT) = CWT 
3 = sin(WA)*sin(WT) = SWA*SWT 
Y = cos(WA)*sin(WT) = CWA*SWT 

Since most building surfaces have tilt angles that are generally 
either 0® (roofs) or 90® (walls) and azimuth angles that generally coincide 
with the four cardinal directions of the compass (0®, 90®. 180® and 270®) 
much computer computation time can be saved by checking for these conditions 
and setting the values of the sin(WT), cos(WT), sin(WA) and cos(WA) 
directly instead of letting the computer software evaluate the sine and 
cosine. 

Therefore, the following preliminary checks have been made part of SUNS. 

a) If WT = 0.0 RAD (0®), surface is horizontal facing upward 

CWT = cos (0) = 1.0 
SWT = sin (0) = 0.0 

b) If WT = 1.5708 RAD (90®), surface is vertical 

CWT = cos (90) =1.0 
SWT = sin (90) =0.0 

c) For all other tilt angles 

CWT = cos (WT) 

SWT = sin (WT) 

d) If WA = 0.0 RAD (0®) 

CWT = cos (0) = 1.0 
SWT = sin (0) =0.0 

e) If WA = 1.5708 RAD (90°) 

CWT = cos (90) =0.0 
SWT = sin (90) =1.0 

f) If WA = 3.1416 RAD (180°) 

CWT = cos (180) = -1.0 
SWT = sin (180) = 0.0 

g) If WA = 4.7114 RAD (270°) 

CWT = cos (270) = 0.0 
SWT = sin (270) = -1.0 
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h) For all other azimuth angles 


CWT = cos (WA) 

SWT = sin (WA) 

3. Calculate ETA, the cosine of the incident radiation on the 
surface 

ETA = cos (n) = o*RAYC0S(3)+e*RAYC0S(l ) 

+y*RAYC0SU) 

4. Calculate the intensity of the direct normal solar radiation 

a) If ETA < 0.0, sun is not up yet 

RDIR = 0.0 

b) If ETA > 0.0, sun is up 

RDIR * RDN * ETA 

5. Calculate the intensity of diffuse radiation 

a) If WT _< 0.7854 RAD (45°) surface is oriented toward sky 

RDIF = BS 

b) If WT > 2.35619 RAD (135°), surface is oriented toward ground 

RDIF = BG 

c) If WT between 45® and 135°, diffy^e radiation is estimated 
using curve shown in Figure 3.46 . 

If ETA < -0.2, 
y = 0.45 

If ETA >-0.2, 

y = 0.55 + 0.437*ETA + 0.313*ETA**2 
Then RDIF = y*BS + 0.5*BG 

6. Calculate total -radiation incident upon surface 

RTOT = RDIR + RDIF 


J.L. Threlkeld, "Thermal Environmental Engineering", Chapter 14, Solar 
Radiation, Figure 14.18, Prentice-Hall Inc., 1962. 
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Ratio of diffuse verticol sky rodiofion fo 
diffuse horizontal rodiotion 



-to - 0.8 - 0.6 - 0.4 - 0.2 0 0.2 0.4 0.6 0.8 t.O 

Cosine of the incidence angle to the verticol surfoce 


Figure 3.46 RATIO OF DIFFUSE SKY RADIATION INCIDENT 
UPON A VERTICAL SURFACE TO THAT INCIDENT 
UPON A HORIZONTAL SURFACE DURING CLEAR DAYS 
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TAR 


A subroutine which calculates transmission, absorption and reflection 
factors for windows. 

INPUT 

L : Code for thickness times extinction coefficient (k*i), 

see Table 3.10 and Figure 3.47 

C : Cosine of angle of Incidence, n 

NPANE Number of panes (1 or 2) 

Note: In some cases, glass manufacturers use value of transmission at 

Normal Incidence. In this case, using the curve given In Figure 3.47, 
it Is possible to obtain the value of k*A. The data for the curve 
are taken from National Research Council of Canada Report No. 7104 


OUTPUT 
TDIR 
TDIF 
ADIRO 
AOIRI 
AOIFO 
ADI FI 


Transmission factor for direct solar radiation 
Transmission factor for diffuse solar radiation 

Absorption factors for direct solar radiation through 
outer and Inner window pane 

Absorption factors for diffuse radiation through outer 
and Inner window pane 


The data for the polynomlnal coefficients aj and tj are given In 
Table 3.11. These coefficients are curve-fitted and the equation forms 
used In the subroutine. 


CALCULATION SEQUENCE 

1. Compute transmission factors for direct solar and diffuse 
radiation. 

5 

TDIR = It. * (C**j) 

j=0 J 

5 

TDIF =2*1 t./{3 + 2) 
j=0 ^ 
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Table 3.10 


CODE FOR THICKNESS TIMES 
EXTINCTION COEFFICIENT 


CODE 

MEANING 

1 

l/8" sheet 

2 

k*i = 0.10 

3 

k*i = 0.15 

4 

k*i = 0.20 

5 

k*i = o.4o 

6 

k*£ = 0.60 

7 

50^ transparent H.A. plate 

8 

k*£ = 1.00 




bss 


mi 




mi 


msgg 




laHK 

iSnii 




'iB!g 


ilSffil 






Figure 3.47 k*£ VS TRANSMISSION AT NORMAL INCIDENCE FOR 
SINGLE SHEET GLASS 
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Table 3.11 


POLYNOMIAL COEFFICIENTS FOR USE IN CALCULATION OF 
TRANSMITTANCE AND ABSORPTANCE OF GLASS 




r single Glazing 

i Double Glazimf 1 


i 



outer 

inner 



0 

0.01154 

-0.00885 

0.01407 

0.00228 

- 0.00401 

0.05 

1 

0.77674 

2.71235 

1.06226 

0.34559 

0.74050 

2 

-3.94657 

-0.62062 

-5.59131 

-1.19908 

7.20350 

1/8" Sheet 

3 

8.57881 

-7.07329 

12.15034 

2.22366 

-20.11763 

4 

-8.38135 

9.75995 

-u. 78092 

-2.05287 

19.68824 


5 

3.61188 

-3.89922 

4.20070 

0.72376 

-6.74585 


0 

0.01636 

- 0.01114 

0.01819 

0.00123 

-0.00438 


1 

1.40783 

2.39371 

1.86277 

0.29788 

0.57818 

0.10 

2 

-6.79030 

0.42978 

- 9.24831 

-0.92256 

7.42065 

3 

14.37378 

-8.98262 

19.49443 

1.58171 

- 20.26848 


U 

-13.83357 

11.51798 

-18.56094- 

- 1.40040 

19.79706 


5 

4.92439 

- 4.52064 

6.53940 

0.48316 

-6.79619 


0 

0.01837 

- 0.01200 

0.01905 

0.00067 

- 0.00428 

0.15 

1 

1.92497 

2.13036 

2.47900 

0.26017 

0.45797 


2 

-8.89134 

1.13833 

-11.74266 

-0.72713 

7.41367 

1/4" Reg. 

3 

18.40197 

-10.07925 

24.14037 

- 22.64299 

1.14950 

-19.92004 

Plate 

4 

- 17.48648 

12.44161 

-0.97138 

19.40969 


5 

6.17544 

-4.8328(5 

7.89954 

0.32705 

-6.66603 


0 

0.01902 

- 0.01218 

0.01862 

0.00035 

- 0.00401 


1 

2.35417 

1.90950 

2.96400 

0.22974 

0.36698 

0.20 

2 

-10.47151 

1.61391 

-13.48701 

.K). 58381 

7.27324 

3 

21.24322 

- 10.64872 

27.13020 

0.84626 

-19.29364 


4 

-19.95978 

12.83698 

-25.U877 

■»o, 67666 

18.75408 


5 

6.99964 

-4.95199 

8.68895 

0.22102 

-6.43968 


0 

0.01712 

-0.01056 

0.01423 

-0.00009 

-0.00279 


1 

3.50839 

1.29711 

4,14384 

0.15049 

0.16468 

O.UO 

2 

-13.86390 

2.28615 

-16.66709 

-0.27590 

6.17715 

3 

26.34330 

- 10.37132 

31.30484 

0.25618 

- 15.84811 


4 

- 23.84846 

11.95884 

-27.81955 

-0,12919 

15.28302 


5 

8.17372 

- 4.54880 

9.36959 

0,02859 

- 5.23666 


0 

0.01406 

-0.00835 

0.01056 

-0.00016 

-0.00192 


1 

4.15958 

0.92766 

4.71447 

0.10579 

0.08180 

0.60 

2 

-15.06279 

2.15721 

-17.33454 

-0.15035 

4.94753 

3 

27.18492 

-8.71429 

30.91781 

0.06487 

- 12.43481 


4 

-23.88518 

9.87152 

-26.63898 

0.02759 

11.92495 


5 

8.03650 

-3.73328 

8.79495 

-0.02317 

-4.07787 


mm 

0.01153 

■0 . 00646 

0.00819 

-0.00015 

-0,00136 

0.80 


4.55946 

0.68256 

5.01768 

0.07717 

0.04419 



-15.43294 

1.82499 

- 17.21223 

-0.09059 

3.87529 

5 <^ Trans . 


26.70568 

-6.95325 

29.46388 

0.00050 

-9.59069 

H.A. Plate 


-22.87993 

7.80647 

-24.76915 

0.06711 

9.16022 


HHI 

7.57795 

-2.94454 

8,05040 

-0.03394 

-3.12776 


0 

0.00962 

-0.00496 

0.00670 

- 0.00012 

-0.00098 


1 

4.81911 

0.51043 

5.18781 

0.05746 

0.02576 

1.00 

2 

-15.47137 

1.47607 

- 16,84820 

-0.05878 

3.00400 

3 

25.86516 

-5.41985 

27.90292 

-0.01855 

-7.33834 


4 

-21.69106 

6.05546 

-22.99619 

0.06837 

6.98747 


5 

7.08714 

-2.28162 

7.38140 

-0.03191 

-2.38328 
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2. Compute absorption factors for direct solar and diffuse 
radiation. 

2 *Jo ’j.oute/'J * 

*“*" = 2 *jo »J.inne/« * 

MBF 

A subroutine for calculating the wet-bulb temperature of moist air 
given the enthalpy and barometric pressure 

INPUT 

i H : Enthalpy, Btu/lb 

1 

j PB : Barometric pressure, inches of mercury 

1 

OUTPUT 

WBF : Wet-bulb temperature, ®F 

CALCULATION SEQUENCE 
j 1. If PB = 29.92 and H > 0 
Let Y = log(H) 

I 

For H < 11.758 

WBF = 0.6040 + 3.4841 * Y + 1.3601 * (Y**2) + 0.9731 * (Y**3) 

For H > 11.758 

WBF = 30.9185 - 39.682 * Y + 20.5841 * (Y**2) - 1.758 * (Y**3) 

2. If PB f 29.92, or H < 0 solve the following equation by Iterating 
WBF 

H = 0.24 * WBF + (1061 + 0.444 * WBF) * W2 
Where W2 = 0.622 * PV2/(PB - PV2) 

PV2 = PPWVMS (WBF) 
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WEATHER 


The weather subroutine obtains the hourly values of the data listed 
below, together with Station Number, Year, Month, Day and Hour (Standard 
Time) from "1440 Magnetic Tapes" of the National Weather Record Center, 
which are required by the hourly load calculation procedure. 


DBT 

: Dry- bulb temperature, ®F 

DPT or 
WBT 

: Dew point or wet-bulb temperature 

TCA 

: Total cloud amount index 

TOC 

: Cloud type index 

V. 

: Wind velocity, knots 

PATM 

: Atmospheric pressure, in. Hg 


The hourly values of the data listed above can be obtained either 
in punch card or magnetic tape form from the National Weather Record 
Center, NWRC, Asheville, N.C. Detailed information on these data may 
be found in: 

(1) Reference Manual WBAN Hourly Surface Observations 144, April, 1966. 

(2) Reference Manual WBAN Solar Radiation-Hourly 280, April 1967. 

(3) Tape Reference Manual, Airways Surface Observations, TDF 14. 

See Appendix C of Volume I, User's Manual for Decoding Algorithms. 
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SECTION 4 

VARIABLE TEMPERATURE PROGRAM 


4.1 OBJECTIVE AND DESCRIPTION 


The space loads calculated by the Thermal Load Analysis Program 
described in Section 3 are determined on the basis of the following 
two assumptions: 

1. space heating and/or cooling is available any time it is 
required. 

2. space temperature is always maintained at its specified 
set point. 

In reality, however, the space temperature is not maintained at a 
constant, but rather varies from its set point from time to time due 
to: 

1. throttling range and deadband of thermostat 

2. undersized space heating and/or cooling capacity 

3. shutdown of equipment during specified periods. 

If the user wishes to investigate the effects of the above items on 
building performance and energy usage, he can do so with the use of 
the Variable Temperature Program. 

Utilizing such information as the type of thermostat, operating 
characteristics of thermostat, heating and cooling capacity avail- 
able to each space, and seasonal start-up/shutdown dates for the 
heating and cooling plant, the Variable Temperature Program corrects 
the basic loads calculated by the Thermal Load Analysis Program for 
these effects and generates a new output tape containing corrected 
hourly space loads. 

4.2 INPUT 


The Variable Temperature Program requires two forms of input: 

1. the output tape generated by the Thermal Load Analysis 
Program and containing hourly weather and basic space loads. 

2. the card input data described in Table 5.1 of User's Mahual . 

In attempting to simulate the effect of varying space temperature, , 
all surfaces and objects having mass, and therefore thermal inertia, 
have their influence on the room's response to that effect. For this 
reason, the Variable Temperature Program requires the user to define 
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some additional information that may not have been required by the 
Thermal Load Analysis Program, i.e., the types of floors, ceilings 
and furnishings that are part of each space. If, however, the user 
desires not to go into this kind of detail, an alternative approach 
can be used, i.e., make use of typical default values built into the 
program. The default values set by the program are determined as 
follows: 

1. For floors, the default parameters are a function of the 
weight of floor (lbs per sq. ft.) which are specified in 
Table 4.3 of User's Manual, Reading Order LC-57, and passed 
along to the Variable Temperature Program via the input 
tape. 

2. For ceilings, the default parameters are a function of the 
weight of ceiling (lbs per sq. ft.) which is assumed to be 
one-half of the weight of floor. 

3. For furnishings, the default parameters are a function of 
the weight of furnishings (lbs per sq. ft.) called for in 
Table 5.1 of User's Manual, Reading Order VT-16. 

The more detailed solution requires that the make-up of the floors, 
ceilings and furnishings be known and use be made of the Response 
Factor Program (Section 2) to generate the response factors corres- 
ponding to each. 

4.3 OUTPUT 


Results of the variable temperature analysis are summarized in a 
one-page report (Report VI) entitled "Summary of Variable Temperature 
Load Calculations" (see Figure 4.T). At the user's option, additional 
reports can be called for which echo input data and detail results 
for various phases of the analysis. The optional reports include: 

1. Report V2 - Hourly Surrenary of Results (Figure 4.2) 

2. Report V3 - Echo of Building Description Data Read From 

Tape (Figure 4.3) 

3. Report V4 - Echo of Floor, Ceiling and Furnishing Input 

Data (Figure 4.4) 

4. Report V5 - Ccho of Space Description Input Data (Figure 4.5) 

5. Report V6 - Echo of Thermostat Scheduling Input Data 

(Figure 4.6) 

6. Report V7 - Summary of Internal Surface Data and Calculation 

(Figure 4.7) 

7. Report V8 - Summary of Calculated Space Response Factors 

(Figure 4.8) 
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Figure 4.1 REPORT VI 
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4.4 mn RounwE algorithms 


The calculations performed by the Variable Temperature Program are 

as follows: 

1. Read building description data from basic load input tape. 
Order of data is as follows: 

a) lOENl - Facility name 

b) IDEN2 - Facility location 

c) IDEN3 - Engineer's name 

d) IDEN4 - Project number 

e) IDEN5 - Date 

f) NRF - Number of types of response factor surfaces 

g) For each surface type 

NRFT - Number of response factor terms 
R1 - Coninon ratio 
RX 

RY \ Surface response factors 

RZ J 

h) NOB - Number of delayed surfaces 
1) For each delayed surface 

IRF - Response factor type index 
AD - Surface area, sq. ft. 

j) NQB - Number of quick surfaces 

k) For each quick surface 

ISQ - Surface roughness Index 

UQ - Surface U-factor less outside film 
coefficient, Btu/hr-sq ft- F 

AQ - Surface area, sq.ft. 

l) NWB - Number of windows 
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m) For each window 

NPW - Number of panes of glass 
AW - Window area, sq. ft. 

n) NIHT - Number of internal heat transfer surfaces 

o) For each internal heat transfer surface 

ISPCll 

ISPC2 r connected to surface 

FIHTS - Surface V*A, Btu/hr. °F 

p) NUWB - Number of underground walls 

q) For each underground wall 

AUW - Underground wall area, sq. ft. 

FUW - U-factor, Btu/hr-sq ft-°F 

r) NUFB - Number of underground floors 

s) For each underground floor 

AUF - Underground floor area, sq. ft. 

FUF - U-factor, Btu/hr-sq ft-°F 

t) NS - Number of spaces in building 

u) For each space 

ND - Number of delayed surfaces in space 

NQ r Number of quick surfaces in space 

NW - Number of windows in space 

NIHTS - Number of internal H.T. surfaces in 
space 

NUW - Number of underground walls in space 
NUF - Number of underground floors in space 
MULT - Space repetition factor 
FLORB - Floor area, sq. ft. 

VOL - Space volume, cu. ft. 
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TSPAC - Set point temperature, °F 

WOF - Weight of floor, Ibs/sq. ft. 

ID - Index associated with each of ND delayed 

surfaces 

IQ - Index associated with each of NQ quick 
surfaces 

IW - Index associated with each of NW windows 

IHTS - Index associated with each of NIHTS internal 

H.T. surfaces 

lUW - Index associated with each of NUW underground 
walls 

lUF - Index associated with each of NUF underground 
f 1 oors 

v) JMONT - Starting month, 1 to 12 
LEN6H - Number of days 

NOHIE - Number of hours in each month 
ISTRT - Starting hour of analysis, 1 to 8760 
lEND - Ending hour of analysis, 1 to 8760 

2. Write all of the data read above onto the output tape in 
the same order as above. 

3. For each window, calculate the resistance and U-factor 
(less the outside film coefficient). 

a) For single pane windows 

REI = 0.5 inside film resistance 
REA = 0.0 interpane resistance 
R = REI + REA total resistance 
UGW = 1.0/R U-factor 

b) For multi-pane windows 

REI = 0.5 inside film resistance 
REA = 1.6 interpane resistance 
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R - REI + REA total resistance 

UGW = 1.0/R U- factor 

4. Read card Input data as outlined In Table 5.1 of User's 
Manual . 

5. Calculate hour of year that boiler and chiller are to be 
turned on and off. 

IBS = IHOY (MONS, IDAYS, NOHIE) 

IBE = IHOY (MONE. IDAYE, NOHIE) 

ICS = IHOY (MONS. IDAYS. NOHIE) 

ICE = IHOY (MONE. IDAYE. NOHIE) 

6. Calculate each space's set of response factors by accounting 
for heat storage effect of delayed surfaces, underground 
walls and floors, ceilings, intermediate floors, and fur- 
nishings. Effects of quick surfaces and windows will be 
added within the hour loop, where the outside film co- 
efficient can be calculated as a function of wind speed. 

For each space I = 1 to NS. perform the following: 

a) Determine the highest number of response factor terms 
that any delayed surface In the space has. 

• MNRF = 1 (initialization) 

• If ND(I) = 0. go to (6b). 

• For each delayed surface J4 = 1 to ND(I). 

J1 = ID(I.J4) (delayed surface index) 

03 = IRF(Jl) (response factor surface type 
index) 

MNRFT = IR(J3) 

If MNRF < MNRFT. reset MNRF = MNRFT. 

b) Limit the minimum number of response factor terms to 


If MNRF < 10. reset MNRF = 10. 

c) Set index 0=1 (first term of space response factor set). 
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d) Initialize space response factor variable correspond- 
ing to J. 

SRMRT(J) = 0.0 

e) Underground Walls - calculate and add into SRMRT a 
correction factor to correct the underground wall 
load for space temperatures other than that assumed 
in basic load calculation. 

• This correction factor should only be added in 
one time; therefore if J > 1, skip to calculation 
(6g). 

• If NUW(I) <. 0, space has no underground walls; 
therefore skip to calculation (6f). 

t For each underground wall J1 = 1 to NUW(I), 
SRMRT(J) = SRMRT(J) - AUW(J2) * FUW(J2) 
where J2 = lUW(I.Jl). 

f) Underground Floors - calculate and add into SRMRT a 
correction factor to correct the underground floor 
load for space temperatures other than that assumed 
in basic load calculation. 

• This correction factor should only be added in 
one time; therefore if J > 1, skip to calcula- 
tion (6g). 

• If NUF(I) 5 0, space has no underground floors; 
therefore skip to calculation (6g). 

• For each underground floor J1 = 1 to NUF(I), 

SRMRT(J) = SRMRT(J) - AUF(J2) * FUF(J2) 
where J2 = IUF(I,J1). 

g) Delayed Surfaces - calculate response factor term 
for all delayed heat transfer surfaces and add their 
contribution into SRMRT(J). 

• Let number of delayed surfaces in space NDl = 
ND(I). 

• If NDl £0, skip to calculation (6h). 

• For each delayed surface J2 = 1 to NDl, 
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01 ' IDU,J2) (delayed surface index) 

A = AD(Jl) (area) 

03 = IRF(Ol) (response factor index) 

If 0 > IR(03), use common ratio to determine 
response factor. 

RZ(03,0) = RAT0S(J3) * RZ(03,0-1) 

SRMRT(0).= SRMRT(O) - A * (RZ(03,0)) 

h) Ceilings - calculate response factor term for all 
ceilings, if any, in space and add their contribution 
into SRMRT. 

• Let number of ceiling surfaces in space NCI = NC(I). 

• If NCI £0, skip to calculation (6i). 

e For each ceiling surface 01 = 1 to NCI, 

02 = ICD(I,01) (ceiling index type) 

A = ACEIL(I,01) (area) 

If 0 > IRC(02), use common ratio to determine 
response factor. 

CRX(02,0) = CRC(02) * CRX(02,0-1) 

CRZ(02,0) = CRC(02) *CRZ(02,0-1) 

SRMRT(O) = SRMRT(0) + A * (CRX(02,0) - CRZ(02,J)) 

i) Non-underground Floors - calculate response factor term 
for all non-underground floors, if any, in space and add 
their contribution into SRMRT(O). 

• Let number of non-underground floors in space 
NFl = NF(I). 

t If NFl <.0, skip to calculation (6j). 

• For each non-underground floor J1 = 1 to NFl, 

J2 = IFD(I,J1) (floor index type) 

A = AFL0R(I,J1) (area) 
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If J ?• IRFLC02), use coifliTion ratio to detemine 
response factor. 

FLRX(J2,J) ^ CRFL(d2) * FLRX(J2,J-1) 
FLRZ(J2,J) = CRFL(J2) * FLRZ(J2,J-1) 

SRMRT(J) = SRMRT(O) + A * (FLRX(J2,J) - FLRZ(02,J) 

j) Furnishings - calculate response factor term for all 
furnishings in space, if any, and add their contribu- 
tion into SRMRT(J). 

• Let area of furnishings in space AFNl = AFN(I). 

• If AFNl £0.0, skip to calculation (6k). 

• If J > IRFU(J2), use common ratio to determine 
response factor. 

FURZ(J2,J) = CRFU(J2) * FLRZ(J2,J-1) 
where J2 = IFND(I). 

• SRMRT(J) = SRMRT(J) - AFNl * FURZ(J2,J). 

k) Add in default values for floors and ceilings, if 
required. 

§ Check to see if default values for floor and 
ceiling are required. 

If user entered his own floor and ceiling via 
input data, (i.e., NC(I) + NF(I) > 0, then skip 
to calculation (6o). 

l) Underground Floors - using default values (DFURZ) built 
into program for underground floors, calculate the 
response factor term to account for heat storage 
effect; add its contribution into SRMRT. 

0 If space has no underground floors (i.e., 

NUF(I) £ 0, skip to calculation (6m). 

0 For each underground floor J1 = 1 to NUF(I): 

J2 = IUF(I,J1) (underground floor number) 

++ Default values taken from Dr. T. Kusuda, "Thermal Response Factors for 
Multi-layer Structures of Various Heat Condition Systems", p.V.3.23, 
"Basement Floor", ASHRAE Semiannual Meeting, January, 1969. 
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If J > 10, use common ratio to calculate 
default value. 

DFURZ(J) == DFURZ(J-l) * DFUCR 

Update SRMRT and adjust response factor for 
U-factor other than the 0.665 (6" concrete 
on soil) upon which default values are based. 

SRMRT(J) = SRMRT(J) - AUF(J2) * DFURZ(J) * 

(FUF(J2)/0.665) 

m) Underground Walls - using default values (DFURZ) built 
into program for underground walls, calculate the 
response factor term to account for heat storage effect; 
add its contribution into SRMRT. 

• If space has no underground walls (i.e., NUW(I)£0), 
skip to calculation (6p). 

• For each underground wall, J1 = 1 to NUW(I). 

J2 = lUW(I) (underground wall number) 

If J > 10, use cotimon ratio to calculate 
default value. 

DFURZ(J) = DFUCR * DFURZ(J-l) 

Update SRMRT and adjust response factor for 
U-factor other than the 0.791 (6" concrete wall 
against soil) upon which default values are 
based (see same reference as used in (6 1). 

SRMRT(J) = SRMRT(J) - AUW(J2) * DFURZ(J) * 

(FUF(J2)/0.791) 

n) Ceilings - using default values (DFFRZ) built into 
program for ceilings, calculate the response factor 
term and add its contribution into SRMRT. 

• There is no bypass around this calculation since 
each space is assumed to have a ceiling and 
since the user did not define one, i.e., 

NC(I) = 0, a default value must be entered. 

• If J > 7, use common ratio to calculate default 
value. 

DFFRZ(J) = DFFCR * DFFRZ(J-l) 
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0 Update SRMRT and adjust response factor term 
for weights other than the 70 lh|/sq. ft. upon 
which default values are based. (It is assumed 
that the ceiling is also serving as a floor to 
the space above, therefore the total weight of 
surface (140 Ibs/sq. ft.) is being split between 
a floor and a ceiling.) 

SRMRT(J) = SRMRT(J) - FLORB(I) + DFFRZ(J) * 

(W0F(I)/70.0) * 1.26 

where 1.26 is the correction to the overall 
U-factor for a ceiling. 

o) Non-underground Floor - using default values (DFFRZ) 
built into program for non-underground floors, calcu- 
late the response factor term and add its contribution 
into SRMRT. 

0 Check to see if a floor has been previously 
defined, i.e. , NUF(I) > 0, and if so, skip to 
calculation (6p). 

0 If J > 7, use common ratio to calculate default 
val ue. 

DFFRZ(J) = DFFCR * DFFRZ(J-l) 

0 Update SRMRT and adjust response factor term 
for weights other than 70 Ibs/sq. ft. upon which 
default values are based . 

SRMRT(J) = SRMRT(J) - FLORB(I) * DFFRZ(J) * 

(W0F(I)/70.0) 

p) Furnishings - using default values (DFNRZ) built into 
program for furnishings, calculate the response factor 
term and add its contribution into SRMRT. 

0 Check to see if user entered his own furnishing 
data, i.e., IFND(I) > 0, and if so, skip to 
calculation (6q). 

0 If J > 10, use common ratio to calculate default 
value. 

++ Default values taken from Dr. T. Kusuda, "Thermal Response Factors for 
Multi-layer Structures of Various Heat Condition Systems", p. V.3.22, "Con- 
crete Floor", ASHRAE Semiannual Meeting, January, 1969. 
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DFNRZCO) " DFNCR * DFNRZCJ-1) 


• Update SRMRT and adjust response factor term 
for weights other than the 20 Tbs/sq. ft. upon 
which default values are based. (It is assumed 
that the heat storage capacity of furnishings is 
equivalent to approximately 3" paper.) 

SRMRT(O) = SRMRT(J) - FLORB(I) * DFNRZ(J) * 
(W0FN(I)/20.0) 

q) Store the space response factor into a matrix for later 
use. 

SRF(I,J) = SRMRT(J) 

r) Check to ensure at least 3 space response factor terms 
have been calculated, and if not, go to calculation 
(6w) and proceed to next term calculation. 

s) Perform check to determine if space is fast responding, 
i.e., J = 3 and |SRMRT(J)| £ 1.0 * E-15, and if so, go 
to calculation (6x). 

t) Check to determine if all space response factor terms 
have been calculated. If J £ MNRF, go to calculation 
(6w). 

u) Perform the relative end test. If |SRF(I,J)/SRF(I,1)| 
£l.0*E-3, go to calculation (6x). 

v) Limit the number of space response factor terms to 100. 
If 0 ^ 100, go to calculation (6x). 

w) Increment 0=0+1 and go to calculation (6d) to begin 
calculation for next term. 

x) Set the number of terms defined for space in question. 

NSRF(I) = 0 

7. Calculate the sum of U * A for all internal heat transfer 
surfaces in each space. For each space I = 1 to NS, 

OLIM = NIHTS(I) (number of surfaces) 


++ Default values taken from Dr. T. Kusuda, "Thermal Response Factors for 
Multi-layer Structures of Various Heat Condition Systems", p. V.3.23, 
"Solid Slab", ASHRAE Semiannual Meeting, Oanuary, 1969. 
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8 . 


SIHTC(I) - £ FIHTS(02) for 01 - 1 to OHM 
02 = IHTSCr.Ol) (surface Index) 


Initialize run parameters 
SMH(I) = I.OEIO 
SMC(I) == -I.OEIO 
SLT(I) = I.OEIO 
SHT(I) = -I.OEIO 
ESHT(I) = 0.0 
ETEMP(I,0) = 0.0 


for each space 1=1 to NS. 
space maximum heating 
space maximum cooling 
space lowest temperature 
space highest temperature 
heat extraction difference 
space temperature deviation 


where 0 = 1 to NSRF(I) 


9. Initialize run parameters for building. 

TCOOL =0.0 total building cooling consumption 

THEAT = 0.0 total building heating consumption 

10. Begin hourly analysis, perform following for each day 
JDAY = ISTRT to lEND incrementing 24 hours each time. 

a) Check condition of boiler. If 

IBE > JDAY 

IBS < JDAY 

IBC = 1 




boiler should be off, therefore set IBOF = 0. 
Otherwise, set IBOF = 1. 

b) Check condition of chiller. If 

pcs < JDAYl 
llCE > JDAyJ 

chiller should be ON, therefore set ICOF = 1. 
Otherwise, set ICOF - 0. 

c) For each hour of day, i.e. , 
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IHOUR = JDAY tQ ODAYE 
ODAYE = JDAY + 23 
perform following calculations. 


Read from the 
parameters. 

input the hour's time and weather 

IDUMY 

- 

hour of year 1 to 8760 

MONTH 

- 

month of year 1 to 12 

I DAY 

- 

day of month 1 to 31 

NDAY 

- 

day of week 1 to 7 (l=Sunday) 

ITIME 

- 

hour of day, 1 to 24 corrected for DST 

J1 

- 

sun flag, 0 = up, 1 = down 

KA 

- 

dry-bulb temperature, °F 

LA 

- 

Wet-bulb temperature, °F 

IWS 

- 

wind speed, knots 

HUMRAT 

- 

humidity ratio, Ibs/lbs 

PATM 

- 

barometric pressure, inches of mercury 

DEN 

- 

density, Ibs/cu. ft. 

ENTH 

- 

enthalpy, Btu/lb 

JSC 

- 

type of day, 1 to 9 

CC 

— 

cloud cover modifier. 


Set type of day indicator for thermostat operation 
schedule. 

If JSC = 1 or JSC > 7, set IDT = 2. 

If JSC = 2 to 6, set IDT = 1. 

Begin space calculation repeating the following cal- 
culations for I = 1 to NS. 


Initialize space parameters. 



UQT = 0.0 suiD of U * A for quick surfaces 
(outside film included) 


UGWT= 0.0 sum of U * A for glass surfaces 
(outside film included) 

PIHT= 0.0 partial internal heat transfer term 
SUM1= 0.0 response factor sum for space 

h) Read from the input tape the space load set. 

IDUMY - space number 

HRLDS - sensible load, Btu/hr 

HLAT - latent load, Btu/hr 

HRLDL - plenum return air load, Btu/hr 

SPOW - space power consumption by lights and 
equipment, KW 

QSINF - sensible infiltration load, Btu/hr 

QLINF - latent infiltration load, Btu/hr 

i) Calculate the sum of U * A for quick surfaces. For 
each quick surface in space J1 = 1 to NQ(I), perform 
following calculations: 

JQ = IQ(I,J1) (quick surface index) 

U = UQ(JQ) (surface U-factor) 

IRUF = ISQ(JQ) (roughness factor index) 

CALL FILM (VEL,IRUF,F) 

where VEL = IWS 

F = outside film resistance 

UQT = UQT + AQ(JQ) * (U/(1.0 + F * U)) 

j) Calculate the sum U * A for window surfaces. For each 
window in space J1 =1 to NW(I) perform following cal- 
culations: 

JW = IW(I,J1) (window index) 

U = UGW(JW) (U-factor) 
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ITYPE ^ 6 

CALL FILM CVEL. ITYPE, F) 

where VEL = IWS 

F = outside film resistance 
UGWT = UGWT + AW(JW) * (U/Cl.O + F U)) 

k) Calculate the internal surface load correction factor. 
For each internaT surface in space J1 = 1 to NIHTS(I), 
perform following calculations: 

J2 = IHTS(I,J1) (surface index) 

J3 = ISPC1(J2) (adjacent space number) 

If J3 = I, set J3 = ISPC2(J2) 

PIHT = PIHT + FIHTS(J2) * ETEMP(J3,1) 

l) Calculate final space response factors and set value of 
ETEMP. For J1 = 1 to JLIMI where JLIMI = NSRF(I)-1, 
perform the following calculations: 

02 = JLIM - 01 

ETEMP(I,02+1) = ETEMP(I,02) 

SUMl = SUMl + SRF(I,02+1) * ETEMP(I,02+1 ) 

m) Initialize plenum variables. 

CFMl =0.0 
CFM2 =0.0 
UCFM =0.0 

n) Check if space is a ceiling plenum, and if so, 
perform the following calculations: 

• If IPLS(I) = 0, space is not a plenum, therefore 
skip to calculation (10 o). 

• Check if fan is operating-. If 

ITIME < IV0N(I,IDT) 
or ITIME > IVOFF(I,IDT) 

fan is off; therefore skip to calculation (10 o). 
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• Fan is operating; therefore perform the following 
J1 IVS(I) 

UCFM = CFM(I) 

CFMl = 1.08*CFM(I) 

CFM2 = 1.08 * CFM(I) * (TSPAC(I) - 

ETEMP(J1,1) - TSPAC(Jl) + HRLDL(Jl) 

o) Calculate temperature difference between outside dry- 
bulb and constant space temperature assumed in basic 
load calculation. 

TOMCS = LA - TSPAC(I) 

If 1 TOMCS I <0.1, set TOMCS = 1.0E35 

p) Define various terms to be used in equations later. 

SUM3 = UQT + UGWT 

SUM4 = SUMl + PINT + HRLDS + CFM2 

SUMS = -SRF(I,1) + SUM3 + SIHTC(I) 

+ QSINF/TOMCS + CFMl 

q) Set space thermostat type and check for no thermostat, 
i.e., floating space temperature. Also set thermostat 
schedule that applies. 

IJUMP = ISTT(I) 

If IJUMP = 0, skip to calculation (lOu). 

JUMP = IVTSD(IJUMP,IDT,ITIME) 

r) Set the high and low thermostat limits deviations and 
space heating and cooling capacity. 

TL = VTSD2(IJUMP,IDT,ITIME) - TSPACH) 

TH = VTSD1(IJUMP,IDT,ITIME) - TSPAC(I) 

HEAT = -HCAP(I) * IBOF 

COOL = CCAP(I) * ICOF 
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s) Analysis for a Type 1 thermostat (linear or propor- 
tional control) (see Table 4.1). 

• Calculate slope of thermostat function line. 

D = (HEAT + C00L)/(TH - TL) 

• Calculate intercept of thermostat function line. 

C = -(HEAT + D * TL) 

• Calculate space temperature deviation from 
TSPAC(I) that exists at end of hour. 

TEMPS = (SUM4 - C)/(SUM5 + D) 

• Calculate heat extracted from or supplied to 
space during hour. 

HE = TEMPS * D + C 

• Check if more heat is required than the space 
has capacity for. 

If TEMPS < TL, set 

HE = -HEAT 

TEMPS = (SUM4 + HEAT) /SUMS 

f Check if more cooling is required than the 
than the space has capacity for. 

If TEMPS > TH, set 

HE = COOL 

TEMPS = (SUM4 - C00L)/SUM5 

• Go to calculation (lOv). 

t) Analysis for a Type 2 thermostat (hi-low or on-off 
control) (see Table 4.1). This thermostat supplies 

no heating or cooling between the high and low limits. 
If the limits are hit, the extraction rate (+ or -) 
at that temperature is calculated and compared to the 
heating or cooling capacity of the space. If the space 
capacity is exceeded, the temperature is allowed to 
float the necessary amount to satisfy heat balance , 
equation. 
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Table 4.1 

TYPES OF THERMOSTATS 


TYPE 

DESCRIPTION 

ACTION 

1 

LINEAR OR 

PROPORTIONAL 

CONTROL 


Cooling 

Rate 

Cooling Capacity 




^ Lo Limi^ 

1 .p 

1 

• Ahnvp 



op 

Bel ow j 

Setpoint j 


X Setpoint 

— Hi Limit 



Heating Capacity 





T 

Heating 

Rate 


Cooling 

2 HI-LOW OR 

ON- OF CONTROL ^ 



Heating 

Rate 







f Calculate space temperature deviation from 
TSPACCD that exists, at end of hour. 

TEMPS = SUM4/SUM5 

t Initialize heat extraction rate. 

HE = 0.0 

• Check if lower thermostat temperature limit is 
exceeded and if so, reset TEMPS and HE. 

If TEMPS < TL, set 

TEMPS = TL 

HE = SUM4 - TEMPS * SUMS 

• Check if space heating capacity has been 
exceeded and if so, reset TEMPS and HE. 

If I HE I > HEAT, set 

TEMPS = (SUM4 + HEAT)/SUM5 


HE = -HEAT 


• Check if high thermostat temperature limit is 
exceeded and if so, reset TEMPS and HE. 

If TEMPS > TH, set 
TEMPS = TH 

HE = SUM4 - TEMPS * SUMS 

• Check if space cooling capacity has been 
exceeded and if so, reset TEMPS and HE. 

If |HEl > COOL, set 

TEMPS = (SUM4 - COOL) /SUMS 
HE = COOL 

• Go to calculation (lOv). 

u) Analysis for a Type 0 thermostat (floating control or 
no thermostat at all). This will be simulated using 
a Type 2 thermostat analysis, but with high and low 
limit set at extremely large values. 
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t Set limit values at quantities that will never 
be exceeded. 

TL -I.OEIO 

TH = I.OEIO 

• Zero out space heating and cooling capacities. 

HEAT =0.0 
COOL = 0.0 

• Proceed to calculation (lOt). 

v) Store space end-of-hour temperature deviation for 
use next hour. 

ETEMP(I,1) = TEMPS 

w) Calculate end-of-hour space temperature. 

STEMP = TEMPS + TSPAC(I) 

x) Write out space data onto output tape. 


IDUMY 

- space number 


HE 

- system sensible load, Btu/hr 


HLAT 

- system latent load, Btu/hr 


ZERO 

- plenum return air load 


SPOW 

- space power consumption, KW 


ZERO 

- sensible infiltration load, Btu/hr 

QLINF 

- latent infiltration load, Btu/hr 

STEMP 

- resulting space temperature. 

Of 

UCFM 

- CFM being circulated through 
space when fan is operating. 

a plenum 


y) Keep track of space maximum heating and cooling rates 
and their time of occurrence. 

• Maximum heating check 

If SMH(I) > HE , reset maximum 
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SMHU) = HE 
ITSMH(I,1) =< ITIME 
ITSMHCI,2) = IDAY 
ITSMH(I,3) = MONTH 
• Maximum cooling check 

If SMC(I) < HE, reset maximum 
SMC(I) = HE 
ITSMC(I.l) = ITIME 
ITSMC(I,2) = IDAY 
ITSMC(I,3) = MONTH 

z) Keep track of maximum and minimum space temperatures 
and their time of occurrence. 

e Lowest space temperature check 

If SLT(I) > STEMP, reset minimum 

SLT(I) = STEMP 

ITSLT(I,1) = ITIME 

ITSLT(I,2) = IDAY 

ITSLT(I,3) = MONTH 

e Highest space temperature check 

If SHT(I) < STEMP, reset maximum 

SHT(I) = STEMP 

ITSHT(I,1) = ITIME 

ITSHT(I,2) = IDAY 

ITSHT(I,3) = MONTH 

aa) Update consumption totals for building. 

If HE < 0.0, THEAT = THEAT + HE * MULT(I) 

If HE > 0.0, TCOOL + HE * MULT(I) 
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bb.) END OF SPACE LOOP 
cc) END OF HOUR LOOP 
n. Write final report. See Figure 4.1. 

NOTE: For further information on the algorithms contained within the 

Variable Temperature Program refer to the following additional 
references. 

1. K. Kimura, "Simulation of Cooling and Heating Loads Under 
Intermittent Operation of Air Conditioning, ASHRAE Semiannual 
Meeting, New Orleans, January 1972. 

2. G. Mitalas and D. Stephenson, "Room Thermal Response Factors", 
ASHRAE Semiannual Meeting, Detroit, January 1967. 

3. ASHRAE Handbook of Fundamentals, Chapter 22, Air Conditioning 
Cooling Loads Part II - Extension of Cooling Load Calculation 
For Intermittent and Variable Operating Conditions, P. 425, 1972. 
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SECTION 5 

SYSTEM AND EQUIPMENT SIMULATION PROGRAM 


5.1 OBJECTIVE AND DESCRIPTION 


Due to outside air requirements and the limitations Imposed by 
various component control schedules, the hourly heating and cooling 
requirements of a building's boilers and chillers may differ markedly 
from the summation of hourly heating and cooling space loads. The 
System and Equipment Simulation Program, therefore, performs two func- 
tions. First, It translates hourly space loads, including the ventila- 
tion air requirements, by means- of the Individual performance charac- 
teristics of each fan system. Into the hourly thermal requirements 
Imposed upon the heating and cooling plants. Second, It converts these 
hourly thermal requirements Into energy requirements based upon the 
part-load characteristics of the heating and cooling plant equipment. 

I 

The System and Equipment Simulation Program Is made, up of a number 
of functions and subroutines. (See Table 5.1 for a description of 
these routines.) The main routine, SYSIM, directs the flow of logic 
through the program and controls the order in which calculations are 
to be performed. The sequence of the calculations is as follows. 

First, the zone air flows are determined using the peak hourly heating 
and cooling zone loads. Next, fans and fan motors are sized based on 
air flows and system pressures. In this segment, central equipment is 
also sized. Then, an hour-by-hour analysis of the building's energy 
distribution systems is performed. Each system is examined each hour 
and the hourly heating and/or cooling loads calculated and sumned to 
give the building's heating and/or cooling requirements. At the end 
of an hour's calculations, after the last thermal distribution system 
has been examined and any snow-melting load accounted for, the EQUIP 
subroutine is called upon to convert the hourly building thermal re- 
quirements into hourly heating, cooling and on-site generation (if 
applicable) energy requirements. This series of calculations is 
repeated hourly for the length of time called for (up to 1 year). The 
output is organized in terms of monthly energy and resource require- 
ments for the building equipment combination in question. An annual 
summary of the energy and resource consumption is then printed' out as 
a permanent record. 

The sequence of calculations outlined above is the same for a heat 
conservation equipment combination, except that: 1) zone air flows 
are sized differently, 2) other supplemental heating requirements 
must be accounted for, and 3) specialized treatment of the double- 
bundled condenser refrigeration machines is necessary. 

In order to follow the notations of the engineering manual, an 
understanding of variable organization as it pertains to zone 
labeling is required (see Figure 5.1). The re-numbering of zones 
internally by the program has resulted in increased flexibility to 
the user and a reduction of computer storage requirements. As 
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regards assigning zones to energy distribution systeros, the user need 
not be concerned with zone sequence when generating the load tape. 

They may be specified in any order. Zones may be omitted or repeated. 

Regarding the program structure, a storage requirement savings Is 
realized since variables which were once doubly-subscrlpted may now be 
singly subscrpted. An example of this potential savings using the 
example of Figure 5.1 zone/system relationships Is Illustrated In 
Figure 5.2. Input tape variables ("Ji" numbers) are assigned via vari- 
able SPACN|^jv Each zone "j" of system "k" has a corresponding "i". 
Thus one douBly-subscripted variable (SPACNkj) is used to identify 
the particular "i" variable location of a given zone on a given sys- 
tem. 

LOAD PROGRAM SPACE 

NUMBERING (z) 

SIMULATION PROGRAM 

INTERNAL NUMBERING (i) 

LOAD PROGRAM 

NUMBERING (SPACN,^^j.=Jl) 

ZONE NUMBERING (j) 

SYSTEM NUMBERING (k) 


Figure 5.1 SYSTEM SIMULATION PROGRAM NUMBERING 
ORGANIZATION w/example 


c 

o 



1 2 3 4 5 


Number of zones (j) 

Figure 5.2 SYSTEM/ZONE MATRIX using doubly- 
subscripted variables (k,j) 
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TABLE 5.1 


SYSTEM AND EQUIPMENT SIMULATION 
SUBROUTINES AND FUNCTIONS 


NAME 

FUNCTION 

SYSIM 

Main routine 

HTCON 

Heat conservation 

TDATA 

Reads off header data from LOAD tape 

CDATA 

Reads card input 

FSIZE 

Fan sizing 

MZDD 

Multi-zone and dual duct fan system simulation 

SZRHT 

Single-zone/sub-zone reheat fan system 

FHTG2 

Floor panel heating systems 

FCOIL 

Fancoil unit simulation (2- and 4-pipe) 

INDUC 

Induction unit fan system simulation (2- and 4-pipe) 

VARVL 

Variable volume fan system simulation 

RHFS2 

Simulation of: Single-zone fan system w/face and bypass 
dampers , 

Unit ventilator. 

Unit heater, 

Constant volume reheat fan system. 

FANOF 

Load handler when fan system is off 

ZL03 

Zone load organizer: calculates reheating and recooling 

loads 

BRAD2 

Baseboard radiation simulation 

AHU 

Air Handling Unit simulation 

MXAIR 

Mixed air calculation 

ECONO 

Economizer cycle simulation 

CCOIL 

Cooling coil simulation 

TRSET 

Linear interpolation routine 

PTLD 

Part load fan power calculation 

TEMP 

Temperature calculation 

PSYCH 

Psychrometrics 

PSYl 

Psychrometrics 

PSY2 

Psychrometrics 

PPWVM 

Psychrometrics 
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TABLE 5.1 (CONT'D) 



5 - 






5.2 MAIN ROUTINE ALGORITHMS 


The main routine of the System and Equipment Simulation Program. 
SYSIM controls the flow through the program. This routine is divided 
roughly into three sections. 

• Initial Sizing . Subroutines are called to read card input data 
(CDATA) and to read off header data from the LOAD tape (TDATA). 

A third subroutine (FSIZE) is then called to size zone and system 
air flows. Finally, central system power consuming equipment 
(i.e., pumps, fans, cooling towers, motors, engine generators, 
steam turbines) are sized.' 

f Hourly Calculations . The function of this mode is to first 
read hourly weather data and zone loads from the LOAD tape. 
Secondly, the appropriate energy distribution subroutines are 
called to calculate energy conversion system loads (heating, 
cooling, water and power requirements). Thirdly, subroutine 
EQUIP is called to calculate resource requirements necessary to 
satisfy heating, cooling and power needs. An account of energy 
distribution and conversion system loads not met is kept and 
printed in this mode at the end of each month. 

• Monthly summaries . The third mode indicates the activity of the 
program by printing a central equipment size summary and a table 
of energy and resource requirements (demand and consumption) for 
each month. 

INPUT 

Cards - A description of card input variables may be found in 
Section 6 of the Users Manual (Vol. I). 

Tape - Hourly data required by the program is defined in Table 5.2. 
This includes both weather and zone load information. 


OUTPUT 

Printer - Printed output is discussed in Table 5.3. Also refer to 

Section 6 of the Use/s Manual for examples of the program's 
output. 


COMMON 


The System and Equipment Simulation Program is organized such that 
use of common by second-, third-, etc. order subroutines and 
functions is the exception rather than the norm. However, most of 
the variables required by first-order subroutines are located in 
COMMON. These variables are defined in Table 5.4. 
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TABLE 5.2 


ORQANIZATION OF INPUT LOAD TAPE TO SYSTEM AND 
EQUIPMENT SIMULATION PROGRAM 


On the input tape, after the header data, the following variables 
appear for each hour: 

I HOUR 

• 

• 

Hour number, hour of year 

IMOY 

• 

• 

Month of year 

IDOM 

• 

• 

Day of month 

NDOW 

• 

Day of the week 

IHOD 

• 

• 

Hour of the day 

ISUN 

• 

Sun index which indicates whether or not the 
sun is up (0 = sun up; 1 = sun not up) 

TOA 

• 

Outside air dry-bulb temperature (°F) 

TWB 

• 

• 

Outside air wet-bulb temperature (°F) 

VEL 

• 

• 

Wind velocity (knots) 

WOA 

« 

• 

Outside air humidity ratio (lb water/lb dry air) 

PATM 

• 

Barometric pressure (inches of mercury) 

DOA 

• 

« 

Outside air density (Ibm/ft^) 

HOA 

• 

« 

Enthalpy of outside air (Btu/lb dry air) 

JSC 

CCM 

« 

• 

• 

Day type (i.e., weekday, Sats^rday, Sunday, 

Holiday, Xmas) 

Cloud cover modifier 

For each zone, the following variables appear on the input tape: 

IS 


Space number 

QSx 


Zone sensible load (Btu/hr) 

QL)l 

• 

• 

Zone latent load (Btu/hr) 

QLITEj^ 

• 

f 

Zone lighting load picked up by return air 
(Btu/hr) 

SLPOW 

• 

• 

Zone internal lighting and machinery power 
consumption (KW) 
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QSINF^ 
« QLINF^ 
STEMP, 

UCFM, 


TABLE 5.2 (CONI' D) 


Zone sensible infiltration load (Btu/hr) 

Zone latent infiltration load (Btu/hr) 

4 

Zone temperature (°F) (calculated in Variable 
Temperature Program) 

Air flow if zone is a ceiling plenum (ft /min) 
(calculated in Variable Temperature Program) 


r 
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TABLE 5,3 


OUTPUT OF SYSTEM AND EQUIPMENT SIMULATION 

PROQRAM 

(NOTE: optional printout not covered here) 


PROGRAM VARIABLE 

DESCRIPTION 

Input Recap 



Recapitulation 

of input card data 

Enerqy Analysis Header 

FAC 

- 

Building or project name 

CITY 

- 

Location 

ENGR 

- 

Name of user 

PROJ 

- 

Project number 

DATE 

- 

Date 

Energy Distribution System Summary 

FBHPS,^ 

- 

Supply fan brake horsepower, system k 

FBHPRj^ 

- 

Return fan brake horsepower, system k 

FBHPE,^ 

- 

Exhaust fan brake horsepower, system k 

JMAX,^ 

- 

Number of zones on system k 

CFMAX,^ 

- 

Supply air, system k (CFM) 

CFMIN,^ 

- 

Minimum outside air, system k (CFM) 

CFMEX,^ 

- 

Exhaust air, system k (CFM) 

ALPCT,^ 

i( 

Minimum outside air percent of supply air, 
system k 

Zone Air Flow Summary 

CFMS. 

- 

Supply air, zone i (CFM) 

CFMX^ 

- 

Exhaust air, zone i (CFM) 

TSPj) 

- 

Set point temperature, zone i (°F) 
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TABLE 5.3 CCONT'D) 


PROGRAM VARIABLE DESCRIPTION ^ 

Loads Not Met 

" t 

QCLNMj - Monthly accumulation of cooling loads not 
^ met, zone i (MBTU) 

i 

QCPNM^ - Peak cooling load not met, zone i (MBH) 

IHCNMj - Number of hours in month cooling load not 

met, zone 1 

QHLNM^ - Monthly accumulations of heating loads not 
met, zone i (MBTU) 

QHPNM^ - Peak heating load not met, zone i (MBH) 

IHHNM^ - Number of hours in month heating load not 

met, zone i 'i 

QRCNM - Monthly accumulation of central cooling 

system loads not met due to undersized 
equipment (MBTU) 

QRCNM - Peak central cooling system load not met (MBH) 

IHRNM “ Number of hours in month central cooling 

system load not met 

QBCNM - Monthly accumulations of boiler loads not 

met due to undersized equipment (MBTU) 

QBPNM - Peak boiler load not met (MBH) 

IHBNM - Number of hours in month boiler load not met 


NOTE: 


Loads not met are tabulated only once (i.e., zone 
loads not met are not carried over into central 
equipment loads not met). 
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VARIABLE 



Summary of Equipment Sizes 

, NUMC 

Number of chillers 

SZC 

: Size of chillers (tons) 

NUMB 

: Number of boilers 

SZB 

: Size of boilers (MBH) 

NUMT 

: Number of steam turbines 

SZT 

: Size of steam turbines (HP) 

M4 

: Number of on-site generation engines 

SZE 

: Size of on-site generation engines (KW) 

CAPH 

Total heating capacity (MBH) 

CAPC 

: Total cooling capacity (tons) 

CFMCT 

: Cooling tower air flows (CFM) 

HPCTF 

: Horsepower of cooling tower fan motor (HP) 

HPBLA 

: Horsepower of boiler auxiliaries (HP) 

GPMCL 

Chilled water flow (gpm) 

HPCLP 

: Chilled water pump horsepower (HP) 

GPMCN 

: T Condenser water flow (gpm) 

) 

Condenser water pump horsepower (HP) 

HPCNP 

GPMBL 

: Boiler water flow (gpm) 

HPBLP 

: Boiler water pump horsepower (HP) 






VARIABLE 


TABLE 5.3 (CONI' D) 
DESCRIPTION 


PROGRAM 
ENGY 


Monthly resource consumptions and demands. 

A 12 X 2 X 18 matrix with indices defined 
as indicated below. This variable is trans- 
ferred to subroutine EN6YC where the 
monthly tabulation is printed. 

FIRST SUBSCRIPT: MONTH 

1 is January 

2 is February 

3 is March 

4 is April 

5 is May 

6 is June 

7 is July 

8 is August 

9 is September 

10 is October 

11 is November 

12 is December 

SECOND SUBSCRIPT: MODE OF ENERGY 

1 is Demand 

2 is Consumption 

THIRD SUBSCRIPT: TYPE OF ENERGY 

1 is Maximum monthly heating 

2 is Maximum monthly cooling 

3 is Electric, internal lights and 

building equipment 

4 is Electric, external lights 

5 is Electric heat (boiler and auxiliaries, 

and hot water pumps) 

6 is Electric cool (chillers, chilled 

water pumps, and cooling tower fan) 

7 is Gas heat 

8 is Gas cooling 

9 is Gas generation 

10 is Steam heat 

11 is Steam cooling 

12 is Oil heat 

13 is Oil cooling 

14 is Diesel fuel generation 

15 and 16 not used 

17 is City water 

18 is Fan power 
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TABLE 5.4 
DEFINITION OF 
VARIABLES IN COMMON 


IPRTl 

IPRT2 

IPRT3 

KO 

IC 

IT 

IBOIL 
ICHIL 
I FAN 


QSo 

Ql'a' 

QLITEJ^ 

SLPOWJ- 

QSINFj[ 

QLINFj( 

STEMPj^ 

UCFM 

TSPjl 

VOLX 

TOA 

WOA 

HOA 

DOA 

PATM 

TOO 

KBLDG 

KMAX 

IZNMX 

MSTRT 


Optional print flag-l 
Optional print flag-2 
Optional print flag-3 
Line printer unit number 
Card reader unit number 
Input tape unit number 

Boiler on/off flag (l=on; O=off) 

Chiller on/off flag (l=on; O=off) 

Fan system shut-off flag (0=fans run continuously, 

l=fans may be shut off) 
2=fans and baseboard radia- 
tors may be shut off) 

Zone sensible load (Btu/hr) 

Zone latent load (Btu/hr) 

Light heat into ceiling plenum above zone (Btu/hr) 

Space light and power (KW) 

Zone sensible loss due to infiltration (Btu/hr) 

Zone latent loss due to infiltration (Btu/hr) 

Space temperature at a given hour (°F) 

Air flow through zone if it is a plenum space 
(ft^/min) 

Zone set point temperature (°F) 

Zone volume (ft ) 

Outside air dry-bulb temperature (°F) 

Outside air humidity ratio 

Outside air enthalpy (Btu/lbm) 

Outside air density (Ibm/ft^) 

Barometric pressure (in.Hg.) 

Changeover temperature (°F) 

Heat conservation building flag 
Number of energy distribution systems 
Number of zones to be studied 
Month in which study begins 




TABLE 5.4 (CQNT'D) 


NDAYS 

- 

Length of study (da)^), , \ 

MEND 

- 

Last month of study . • ■ 

I MAX 

m 

- 

Number of hours in mont|i in 

KFAN^ 

- 

Energy distribution system index 

JMAX,^ 

- 

Number of zones on system k 

CFMAX|^ 

- 

Design supply airof system k (ft /min) 

CFMEX|^ 

- 

Exhaust air, system k (ft^/min) 

ALFAM|^ 

- 

Minimum fraction outside air, system k 

OACFM 

- 

Minimum ventilation air, system k (ft /min) 

RHSPi, 

- 

Relative humidity set point, system k (% R.H.) 

WSP^ 

- 

Humidity ratio set point, system k (^bm-dry air 

DAVE^ 

- 

Average air density, system k (Ibm/ft ) 

WRAk 

- 

Return air humidity ratio, system k (]'^]^'}dry aT 

DRAk 

- 

O 

Return air density, system k (Ibm/ft ) 

PWGAL,^ 

- 

Process water volume, system k (gals) 


FMASSj^ - Supply air mass, system k (Ibm-air/hr) 

FMASRj^ - Return air mass, system k (Ibm-air/hr) 

FMASXj^ - Exhaust air mass, system k (Ibm-air/hr) 

TFNPSj^ - Total supply fan pressure, system k (inches) 

TFNPRj^ - Total return fan pressure, system k (inches) 

TFNPEj^ ^ ^ - Total exhaust fan pressure, system k (inches) 

FBHPSj^ - Supply fan brake horsepower, system k (bhp) 

FBHPRj^ - Return fan brake horsepower, system k (bhp) 

FBHPE|^ - Exhaust fan brake horsepower, system k (bhp) 

DTFNSk - Air temperature rise across supply fan, system k, 

at full load (OF) 

DTFNRk - Air temperature rise across return fan, system k, 

at full load (°F) 

MXA0|^ - Mixed air option, system k 

IVVRH|^ - Variable volume reheat option, system k 
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TABLE 5.4 (CONI' D) 


ICZN, 


Zone in wtiich. humidisUt is located, system k, 
(a "j" number) 

ITMPC^_, 

- 

Air temperature control mode, system k 

ITHPC„_2 

- 

Air temperature control mode, system k 

NVFC,^ 

- 

Type-df system k 

VVMIN|^ 

- 

Minimum air . flow variable volume boxes, 

system k;;-.;^ 

TCOFC,^ 


Two-pi pei induction uni t fan system changeover 
temperature.. 6h floor panel heating system hot 
water shut-off temperature, system k (°F) 

TFIXl,^ 

“ 

Fixed hot. deck or AHU discharge temperature, 
system k ■ (^F) • 

TFIX2,, 

- 

Fixed cold deck temperature, system k (°F) 

RIPA,^ 

- 

Ratio of induced t(?. primary air, system k 

CFM^. 

- 

Supply air flow rate* zone i (constant)(cu ft/min) 

CFMS^. 

- 

Supply air flow rate, zone i (variable) (cu ft/min) 

CFMR^. 

- 

Return air flow raitCi zone i (cu ft/min) 

CFMX^. 

- 

Exhaust air flow rate, zone i(cu ft/min) 

ZMASS^ 

- 

Supply air mass flow, zone i (constant) (Ibm-air/hr) 

ZMAS^. 

- 

Supply air mass flow, zone i (variable)(lbm-air/hr) 

ZMASR^. 

- 

Return air mass flow, zone i (Ibm-air/hr) 

ZMASX. 

- 

Exhaust air mass flow, zone i (Ibm-air/hr) 

QSI. 

- 

Sensible heating load, zone i (Btu/hr) 

TSi 

- 

Supply air temperature, zone i (°F) 

wz, 

- 

Calculated humidity ratio, zone i (lbm-H20/lbm-dry air) 

WREQD. 

- 

Required humidity ratio . zone i (lbm-H20/lbm-dry air) 

ALFBR. 

- 

Active length baseboard radiation, zone i Clip. ft) 

CBTU^. 

- 

Baseboard radiation heat output per linear foot at 
standard conditions, zone i (Btu/hr-lin.ft) . 

QCLNM^. 

- 

Monthly accumulation of cooling loads not met, 
(zone i) * MULT^ (Btu) 

QCPNM. 

- 

Monthly peak cooling load not met, zone i (Btu/hr) , 

IHCNM^. 

- 

Number of hours cooling load not met, zone i..(hrsj • 

QHLNM^. 

- 

of heating loads not met, (zone 1)* 


5-14 





TABLE 5.4 (CONT'D) 


QHPNM^ 

- 

Monthly peak heating load not met, zone i (Btu/hr) 

IHHNM. 

- 

Number of hours heating load not met, zone 1 (hrs) 

IPLEN^ 

- 

LOAD program space number of plenum above zone i 

SPACN^^j 

- 

Number of space as per LOAD program, applied to 
system k, zone j 

MULT^ 

- 

Multiplication factor, zone i 

I 

- 

Variable subscript i 

TOALO„ 

- 

Low outside air temperature at which system tem- 
perature is THIj^, reset schedule n (°F) 

TO AH I ^ 

- 

High outside air temperature at which system tem- 
perature is TLO^, reset schedule n (°F) 

TLOp 

- 

Low system fluid temperature, reset schedule n (°F) 


- 

High system fluid temperature, reset schedule n (°F) 

I SET. „ 

kim 

~ 

Reset temperature schedule index, system k, reset 
item m (an "n" number) ("m" is defined in Table 6.4, 
User Manual ) 

TFBHP 

- 

Total fan brake horsepower (bhp) 

EFF 

- 

Pump and fan motor efficiency 

PLOCk 

■ - 

Location of floor heating panels, system k 

PAREA|^ 

- 

Floor area covered by heating panels, system k (ft^) 

PERIM,^ 

- 

Exposed perimeter of floor, system k (lin.ft) 

KFLCV 

- 

Type of floor covering (l=bare concrete; 2=tile; 
3=carpeting) 

CINSL 

- 

Floor insulation conductance (Btu/hr-sq-ft-°F) 

DINSL 

- 

Floor insulation thickness (ft) 

TLCHL 

- 

Chilled water set point temperature (°F) 

TPS 

- 

Steam turbine entering steam temperature (°F) 

PPS 

- 

Steam turbine entering steam pressure (psig) 

TESTM 

- 

Boiler supply and absorption chiller entering 
steam temperature (°F) 

PESTM 

- 

Boiler supply and absorption chiller entering 
steam pressure (psig) 

SZT 

- 

Steam turbine size (hp) 





TABLE 5.4 (CONI' D) 


NUMT 

- 

Number of steam turbines 

RPM 

- 

Steam turbine speed Crpm) 

SZE 

- 

Engtne/Generator set size CKW) 

FFLMN 

- 

Minimum part load cut-off for chillers 

KREHT 

- 

Source of reheat coil energy 

HVDF 

- 

Heating value of diesel fuel (Btu/gal) 

HVHO 

- 

Heating value of heating oil (Btu/gal) 

CFMBN 

- 

Building total minimum outside air (cii ft/min) 

CFMBX 

- 

Building total design load supply air (cu ft/min) 

CFMBE 

- 

Building total exhaust air (cu ft/min) 

PWBIL 

- 

Building peak base power load (KW) 

PWOL 

- 

Power of external lighting (KW) 

TLCNM 

- 

Maximum allowable condenser water temperature (°F) 

TLCMN 

- 

Well or city water design return water temperature 
(OF) 

TCWIN 

- 

City water supply temperature (°F) 

TWWIN 

- 

Well water supply temperature (°F) 

TECMN 

- 

Cooling tower water low limit temperature (°F) 

HDCLP 

- 

Total chilled water pump head (ft) 

HDCNP 

- 

Total condenser water pump head (ft) 

HDBLP 

- 

Total boiler water pump head (ft) 

HDWWP 

- 

Total well water pump head (ft) 

GPMCL 

- 

Chilled water flow rate (gpm) 

GPMCN 

- 

Condenser water flow rate (gpm) 

GPMBL 

- 

Boiler water flow rate (gpm) 

GPMWW 

- 

Well water flow rate (gpm) 

HPCLP 

- 

Chilled water pump power (bhp) 

HPCNP 

- 

Condenser water pump power (bhp) 
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TABLE 5.4 CCONT'D) 


HPBLP 

- 

Boiler water pump power Cbhp) 

HPWWP 

- 

Well water pump power Cbhp) 

HPCTF 

- 

Cooling tower fan power (bhp) 

HPBLA 

- 

Boiler accessory power (bhp) 

CFMCT 

- 

Cooling tower air flow (cu ft/min) 

IHSRT 

- 

Hour of year at which simulation may begin 

IHSIP 

- 

Hour of year at which simulation may end 

NCASE 

- 

Number of cases to be run 

NRSET 

- 

Number of reset schedules to be read 

KHCST 

- 

Heat conservation system flag 

NUMB 

- 

Number of boilers 

SZB 

- 

Size of each boiler (MBH) 

BON 

- 

Hour of seasonal boiler start-up (hour of year) 

BOFF 

- 

Hour of seasonal boiler shut-down (hour of year) 

NUMC 

- 

Number of chillers 

SZC 

- 

Size of each chiller (tons) 

CON 

- 

Hour of seasonal chiller start-up (hour of year) 

COFF 

- 

Hour of seasonal chiller shut-down (hour of year) 

KSNOW 

- 

Type of snow melting system 

QSNOU 

- 

Snow melting system design load (Btu/hr) 

SAREA 

- 

Snow melting slab area (sq ft) 

asys„^ 

nc 

- 

System identification number, run nc 

ABLDG„^ 

- 

Heat conservation flag (l=no; 2=yes), run nc 

AMI 

nc 

- 

Type of chiller, run nc 

*nc 

- 

Source of chiller energy, run nc 

AM3„. 

nc 

- 

Source of general heating energy, run nc 

areht„^ 

nc 

- 

Source of reheat coil energy, run nc 
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TABLE 5.4 CCONT'D) 


AM6„^ 

nc 

Type of ^luxWlary chiller, run nc 


Type of supplemental heat, run nc 


Number of engine/generator sets, run nc 

nc 

: - Type of engine/generator set, run nc 

QRCNM 

j 

Monthly accumulation of chiller loads not met 
due to undersizing (MBTU) 

QRPNM 

Monthly peak chiller load not met (MBH) 

IHRNN 

Number of hours chiller load not met 

QBCNM 

Monthly accumulation of boiler loads not met 
due to undersizing (Btu) 

QBPNM 

Monthly peak boiler load not met (Btu) 

IHBNN 

Number of hours boiler load not met 
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CALCULATION SEQUENCE 


1. Call subroutine CDATA to read and recap card input data. 


2. Call subroutine TDATA to read off input tape header data 

stopping before hourly weather and building load information 
is encountered. 


3. Read daily snowfall data, if snow-melting system is used. 


4. Call subroutine FSIZE to calculate the following quantities: 

PWBIL : Peak building base power (KW) 

CFM^ : Peak supply air volume for zone i (CFM) 

CFMR. : Return air volume for zone i (CFM) 

CFMAX^ : Total air supplied by fan system k 

CFMEX|^ : Auxiliary exhaust air removed from zones 

served by system k (CFM) 


CFMINk : Minimum outside air required for fan system k 
(CFM) 

ALFAMj^ : Percent of minimum outside air required for 
fan system k 

OACFMj^ : Minimum outside air for system k 

DRA|^ : Initialize return air density for system k 

WRA|^ : Initialize return air humidity ratio, system k 

(lbm-H 20 /lbm-dry air) 


FBHPSj^ : Supply fan brake horsepower required for fan 
system k (bhp) 

FBHPRk : Retarh fan brake horsepower required for fan 
system k (bhp) 

FBHPE. : Exhaust fan brake horsepower required for fan 
system k (bhp) 

IFBHP : Summation of fan brake horsepowers for all 
systems (bhp) 
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DTFNS,^ 
I DTFNR|^ 
ZMAS^ 
ZMASX^ 
ZMASR^ 

FMASS|^ 

FMASX,^ 

FMASR,^ 

CFMBE 

CFMBX 

CFMBN 


: Temperature rise across supply fan, system k 

; Temperature rise across return fan, system k 

: Supply air mass flow to zone 1 at design load (Ibm/hr) 

; Exhaust air mass flow from zone i (Ibm/hr) 

; Return air mass flow from zone i at design load 
(Ibm/hr) 

: Total supply air mass flow of system k at design 
conditions (Ibm/hr) 

; Total exhaust air mass flow of system k (Ibm/hr) 

: Total return air mass flow of system k at design 
conditions (Ibm/hr) 

: I CFMEX. 

k=l jkmax 

: z CFMAXk 

k=l ,kmax 

: z CFMIN. 

k=l ,kmax 


5. Check type of system 

If conventional or on-site generation, go to calculation 6. 

If heat conservation, call HTCON and then go to 31. 

6. Size Central Equipment 

6.1 Heating and cooling capacities 

CAPH = SZB * NUMB 
CAPC = SZC * NUMC 
SZT = SZC 
NUMT = NUMC 

6.2 Steam turbines (to drive centrifugal chillers). 

If Ml =5, determine number of steam turbines required. 
NUMT = NUMC 
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Determine size of steeun turbines required, if used, 
assuming 1 HP per ton of cooling. 


SZT = SZC 

6.3 Compute total heating capacity required. 

If Ml = 4 (steam absorption chiller). 

Check boiler size with steam turbine requirements 
for possible updating. Steam turbine require- 
ments based upon peak cooling hour assuming 
20 lbs steam per ton of cooling 

CAPHl = CAPC * 20.0 * 33.472/34.5 
If CAPH < CAPHl, 

CAPH = CAPHl 
SZB = CAPH/NUMB 

6.4 Size all pump water flows. 

Chilled water flow rate (gpm) 

GPMCL = 2.4 * CAPC 
Condenser water flow rate (gpm) 

If Ml / 4, GPMCN = 3.0 * CAPC 

If Ml = 4 (steam absorption chiller), 

GPMCN = 3.5 * CAPC 
Boiler water flow rate (gpm) 

GPMBL = CAPH * 1000.0/(500.0 * 20.0) 

6.5 Size pump motors assuming a pump efficiency of 60%. 

Chilled water pump horsepower 

HPCLP = GPMCL * HDCLP/(3962.0 * 0.6 * EFF) 
Condenser water pump horsepower 

HPCNP = GPMCN * HDCNP/ (3962.0 * 0.6 * EFF) 
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Boiler water pump horsepower 

HPBLP = GPMBL * HDBLP/C3962.0 * 0.6 * EFF) 

6.6 Horsepower requirement for motors running boiler auxiliary 
equipment such as fans, blowers, pumps, etc. should be 
computed. From American Standard catalog for packaged 
boilers ranging insize from 20 to 750 HP, the auxiliary 
horsepower requirement was approximately 1/20 of the total 
boiler horsepower capacity; therefore 

HPBLA = CAPH * 1000.0/(33472.0 * 20.0) 

6.7 Size cooling tower fan. 

Cooling tower air flow requirement 

For all chillers except steam absorption, use 
300 cfm per ton of cooling; therefore 

CFMCT = 300.0 * CAPC 

For steam absorption system, use 350 cfm per ton 
of cooling; therefore 

CFMCT = 350i.0 * CAPC 

Cooling tower fan horsepower requirement assuming 
1.0 inch water total pressure 

HPCTF = CFMCT * 1.0/(6346.0 * EFF) 

6.8 Sum heating and cooling equipment brake horsepower 
demand. 

HPHEQ = HPBLA + HPBLP where HPHEQ has units of horsepower 

HPCEQ = HPCTF + HPCLP + HPCNP where HPCEQ has units of 
horsepower 

6.9 Size on-site generation plants. 

Calculate maximum building electrical demand assuming 
all electrical equipment operating (electric resist- 
ance heating and electrically-driven compressive 
cooling not allowable with on-site generation). 

BKWDM = PWBIL + PWOL + (TFBHP + HPCEQ + HPHEQ) 

* 0.7457 
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Calculate number and size of on-stte generation units. 
If M4 set 

NUME = M4 where NUME Is number of engines. 
Size of engines Is then 
SZE = BKWDM/NUME 

If SZE > 500 KW, Increase the number of engines 
until SZE < 500 KW. 

Finally, set M4 = NUME. 

If M4 = 0. set 

NUME = 2 where NUME is number of engines 
Size of engines Is then 
SZE = BKWDM/NUME 

If SZE > 500 KW, increase NUME until 
SZE < 500 KW. 

Finally, set M4 = NUME. 

7. Begin hourly energy consumption analysis repeating calculations 
7 through 14 for every hour of the analysis. 

Read hourly weather data which includes: 

IHOUR : Hour number, hour of year 

IMOY : Month of year 

I DOM : Day of month 

NDOW : Day of the week 

I HOD : Hour of the day 

ISUN : Sun index which Indicates whether or not the 
sun is up 

TOA : Outside air dry-bulb temperature (°F) 

TWB : Outside air wet-bulb temperature (°F) 

VEL : Wind velocity (knots) 
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WOA : Outside air humidity ratio Ob water/lb dry air) 

PATM ; Barometric pressure Cinches of mercury) 

DOA : Outside air density (Ibm/ft^) 

HOA ; Enthalpy of outside air [Btu/lb dry air) 

JSC : Day type (i.e., weekday, Saturday, Sunday, 

holiday, Xmas) 

CCM : Cloud cover modifier (0=opaque, l=clear) 


Read zone load 


QSj 

Ql; 


QLITEj; 


data for all zones on tape. 

: Space number 

: Zone sensible load (Btu/hr) 

: Zone latent load (Btu/hr) 

: Zone lighting load picked up by return air 
(Btu/hr) 


SLPOW^ 

QSINFjj 


QLINF^ 

STEMP^ 


Initialize total 


Zone internal lighting and machinery power 
consumption (KW) 

Zone sensible infiltration load (Btu/hr) 
Zone latent infiltration load (Btu/hr) 

Zone temperature (°F) 

net fan brake horsepower (TNFBP). 


TNFBP = TFBHP 


8. Call energy distribution systems. 
Check type of fan system. 

If KFAN. = 1, call RHFS2 

2, call MZDD 

3, call MZDD 

4, call SZRHT 

5, call RHFS2 

6, call RHFS2 

7, call FHTG2 

8, call FCOIL 

9, call FCOIL 

10, call INDUC 

11, call INDUC 

12, call VARVL 

13, call RHFS2 
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Each of the above subroutines simulates the performance 
of a given system and returns the following quantities: 

QFPCj^ - system cooling requirement (Btu/hr) 

QFPH. - system primary heating requirement 

(Btu/hr 

QFPRH|^ - system reheat coil heating requirement 
(Btu/hr) 

QFPPH. - system preheat coil heating requirement 
(Btu/hr) 

TQB. - heating requirement of baseboard radia- 

tion in zones served by system k (Btu/hr) 

WATER. - steam humidifier water requirement 

(Ibm/hr) 

PWL|^ - base power (KW) 

TNFBP - total net fan brake horsepower, all fan 

systems (bhp) 

9. Sum building hourly cooling, heating, reheat, zone power, and 
water resource requirements. 


QHBC = 

Z 

QFPC. 


k=l 

,kmax 

QHBH = 

z 

QFPH. + QFPPH. + TQB. + ( 


k=l 

,kmax K K 

QHBRH = 

z 

QFPRH. 


k=l 

,kmax 

PWILM = 

z 

PWLk 


k=l 

,kmax 

H20 = 

z 

WATER. 


k=l 

,kmax 


-WATER, 


10. Determine if cooling tower fan is operating. 

If chiller is off (ICHIL=0), set KCTF=0, and 
go to calculation 11. 

If chiller is on (ICHIL=1), assume a 7°F approach for 
tower, therefore temperature of water entering condenser is 


TECON = TWB + 7.0 


If from previous hour, tower is on (KCTF=1), and if 
(TECON > TECMN + 10), set KCTF=1; otherwise KCTF=0. 
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If from previous hour, tower is off (KCTF=0), and if 
(TECON < TECMN), set KCTF=0; otherwise KCTF=1 . 

11. Determine hourly electrical demand of the building (ELDEM) for 
on-site generation, if used. 

If ISUN = 0, exterior lights are OFF; therefore, set 

PWEL =0.0 

If ISUN = 1, exterior lights are ON; therefore, set 
PWEL = PWOL 

If cooling equipment only is ON, 

ELDEM = PWILM + PWEL + (TNFBP + HPCLP + HPCNP 
+ HDCTF * KCTF) * 0.7457 
If heating equipment only is ON, 

ELDEM = PWILM + PWEL + (TNFBP + HPHEQ) * 0.7457 
If heating and cooling equipment are ON, 

ELDEM = PWILM + PWEL + (TNFBP + HPCLP + HPCNP 
+ HDCTF * KCTF + HPHEQ) * 0.7457 

12. Check type of snow-melting system. 

If KSNOW = 0, no snow-melting system. Go to 
calculation 13. 

If KSNOW = 1 or 2, snow-melting considered. 

Calculate amount of snowfall for the hour, assuming 
that 1/24 of the day's total fell during the hour. 

SNOW = 0.1 * SN0WF(ID)/24.0 

where SNOW has units of equivalent inches of water, 
SNOWF(ID) has units of inches of snow and ID is the 
day number of the year, calculated as follows: 

ID = 1 + IHOUR/24 

Call SNOWM subroutine which calculates QTOT, the 
snow-melting load. 

Add QTOT to heating requirement of building. 
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If KSNOW = 1, liquid type snow-melting 
system; therefore, 

QHBH = QHBH - QTOT 

If KSNOW = 2, electric type snow-melting 
system; therefore, 

ELEH = ELEH + QTOT/3413.0 


13. Calculate hourly energy consumption. 

Call EQUIP which calculates the following: 

GASC 
GASH 
GASG 
OILC 
OILH 
STMC 
STMH 
ELEC 
ELEH 
FUEL 

Chiller loads not met due to undersized equipment 
Boiler loads not met due to undersized equipment 

14. Keep running total of hourly energy consumption for each 
month. Update the following quantities each hour. 


See subroutine EQUIP algorithms for 
explanation of these variables 


ENGY (M,2,3) 
ENGY (M,2,4) 
ENGY (M,2,5) 
ENGY (M,2,6) 
ENGY (M,2,7) 
ENGY (M,2,8) 
ENGY (M,2,8) 
ENGY (M,2,9) 
ENGY (M,2,10) 
ENGY (M,2,ll) 
ENGY (M,2,12) 
ENGY (M,2,13) 
ENGY (M,2,14) 
ENGY (M,2,15) 
ENGY (M,2,16) 
ENGY (M,^,17) 
ENGY (M,2,18) 


See subroutine ENGTG algorithms 
for explanation of ENGY matrix. 


15. Keep a record of maximum hourly energy demands by checking, 
at the end of each hour's calcujation, and updating the 
following energy demand quantities. 

ENGY (M,l,l) 

ENGY (^,1,2). 

ENGY (M,.l>3) 

ENGY ^|1.1,4) 
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EN6Y (M.1,5) 

ENGY (M.1,6) 

ENGY (M.1,7) 

ENGY (M,l,8) 

ENGY 

ENGY (M,l,10) 

ENGY 

ENGY (M,l,12) 

ENGY (M,l,13) 

ENGY (M,l,14) 

ENGY (M.1,15) 

ENGY (M,l,16) 

ENGY (M,l,17) 

ENGY (M.1,18) 

END OF HOURLY ANALYSIS FOR ENTIRE YEAR 


16. Write out summary of equipment sizes. See Table 5.3 for list 
of the items printed out. 

17. Call ENGYC to write out annual summary of building monthly 
energy consumption and demands. 

18. Check to see if there is another case to be run. 


If YES, go to calculation 5 and continue. 
If NO, PROGRAM FINISHED. 
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5.3 ALGORITHMS OF SUBROUTINES 


CDATA 


A subroutine to read card input data and assign default values. See 
Volume I, System and Equipnrent Simulation Input Tables for reading order 
and default values of card input variables. 


TDATA 

A subroutine to read off load tape, header data (building description 
information). This advances the tape to the hourly analysis data. 

Building description information read in this subroutine used by the 
system simulation program is as follows: 

Facility Name 

Facility Location 

Name of User 

Project Number 

Date 

Number of zones on load tape 
Volume of each zone (cu ft) 

Set point temperature of each zone (®F) 

Month in which analysis begins 
Length of study (days) 

Number of hours per month 
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FSIZE 


A Subroutine to size energy distribution systen characteristics. 
These properties Include: 

Zone peak heating and cooling loads 
Zone air flows 

Fan system air quantities and motor brake horsepower 
Fan system 

Minimum outside air percentage 


INPUT 

FAC 

CITY 

ENGR 

PROJ 

DATE 

MSTRT 

MEND 

SPACN,^j 


MULT^ 

IZNMX 

yolx 

Qll 

QLITEJ( 


SLPOWJJ 


KMAX 


Name of facility 

Name of city In which facility Is located 

Name of user 

Project number 

Date of computer run 

First month on LOAD tape 

Last month on LOAD tape 

Number of hours In month m 

Variable relating load program zone numbering 
with system simulation zone numbering 

Zone duplication factor 

Number of fan zones In building 

Volume of load program, zone^, fan system k (cu ft) 

Hourly zone sensible load, zone (Btu/hr) 

Hourly zone latent load, zone ii (Btu/hr) 

Hourly zone lighting load picked up by return air, 
zone X (Btu/hrJ 

Hourly zone Internal llahting and machinery power 
consumption* zonejl (KW) 

Total number of fan systems within the building 
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INPUT (CONI' D) 
KFANj^ 
TSPj^ 
JMAX,^ 
TFNPS|^ 
TFNPR,^ 
TFNPE,^ 
OACFM^ 
RHSP,^ 
RIPA,^ 

EFF 

KBLDG 

CFMX^. 

OUTPUT 

CFM^.‘ 

CFMR^. 

ZMASS^. 

. ZMASR^. 
ZMASX^. 
CFMAX|^ 
CFMIN,^- 
ALFAM,^ 

FBHPS|^ 


Type of energy distribution system, system k ' 

Set point temperature! zone/ (°F) 

Number of zones on system k 

Total supply fan pressure of system k 

Total return fan pressure of system k 

Total exhaust fan pressure of system k 

Minimum outside ventilation air of system k (cfm) 

Relative humidity set point of system k {% RH) 

Ratio of induced to primary air for induction units 
of system k 

Efficiency of fan and pump motors (decimal) 

Type of building system (1 .-conventional ; 2. -heat 

conservation) 

Auxiliary exhaust air quantity for zone i (cfm) 


Supply air volume required for zone i (cfm at 
standard density) 

Return air volume for zone i at standard density 

Supply air mass flow of zone i (Ibm/hr) 

Return air mass flow of zone i (Ibm/hr) 

Exhaust air mass flow of zone i (Ibm/hr) 

Total air supplied by fan system k (cfm) 

Minimum outside air required for fan system k (cfm) 

Percent of minimum outside air required for fan 
system k (fraction) 

Supply fan brake horsepower required for fan system k 
(bhp) 
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OUTPUT (CONT'D) 


FBHPR,^ : 

Return fan brake horsepower required for fan 
system k (bhp) 

FBHPE,^ 

Exhaust fan brake horsepower required for fan 
system k (bhp) 

CFMEX,^ : 

s CFMX. (cfm) 

0 = 1 jjmax 

WSPk 

Humidity ratio set point for system k 
(lbm-H 20 /lbm-dry air) 

CFMBX 

z CFMAXk (cfm) 

k=l ,kmax 

CFMBN : 

Z CFMIN. (cfm) 

k=l ,kmax 

CFMBE : 

Z CFMEX. (cfm) 

k=l ,kmax 

PWBIL : 

Maximum hourly building internal lighting and 
machinery power consumption (KW) 

DTFNS,^ : 

Temperature rise across supply fan at full load 
system k (OF) 

DTFNR,^ : 

Temperature rise across return fan at full load 
system k (°F) 

CALCULATION SEQUENCE 


1. Segment One . Read through the load input tape and find the 
following quantities: 

QSZCM. Maximum zone sensible cooling load for each 
zone, i 

QSZHM. Maximum zone sensible heating load for each 
^ zone , i 


2 . 


PWBIL Maximum hourly building internal lighting 
and machinery power consumption 


Segment Two . Calculate zone and system peak load air 
quantities and system peak load power requirements for each 
zone within the building. 


2.1 Calculate cooling and heating temperature differences. 


TDC = 


TCD (TPAC|.f + TIAC * ARIPA. ) 

lory - 

^ (1. + ARIPA J 
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CALCULATION SEQUENCE (CONI' D) 

TDH = TSPft - 

^ (1 . + ARIPA^) 

where TDC : terminal unit cooling design temperature 

difference (°F) 

TDH ; terminal unit heating design temperature 
difference (°F) 

ARIPA. : ratio of induced to primary air (equals 

zero for all but induction unit fan systems), 
system k 

TIAC : design dry-bulb temperature of induced air 

after passing through coil, cooling mode = 62°F 

TIAH : design dry-bulb temperature of induced air 

after passing through coil, heating mode = 120°F 

TPAC.^: primary air design temperature, cooling mode, 
for system type Kf. See table below. 


TPAHkf: primary air design temperature, heating mode, 
for system type Kf. See table below. 



TABLE 

5.5 HEATING & COOLING PRIMARY AIR 

DESIGN 

TEMPERATURE 

SYSTEM 

TYPE 

(kf) 

SYMBOL 

PRIMARY AIR 
COOLING DESIGN 
(OF) 

PRIMARY AIR 
HEATING DESIGN 
(OF) 

INDUCED AIR 
HEATING COOLING 
(OF) (OF) 

1 

SZFB 

55. 

120. 

_ 


2 

MZS 

55. 

120. 

- 

- 

3 

DDS 

55. 

120. 

- 

- 

4 

SZRH 

52. 

95. 

- 

- 

5 

UVT 

55. 

120. 

- 

- 

6 

UHT 

55. 

120. 

- 

- 

7 

FPH 

0. 

0. 

- 

- 

8 

2PFC 

55. 

no. 

- 

- 

9 

4PFC 

55. 

no. 

- 

- 

10 

2PIU 

53. 

53. 

120. 

62. 

11 

4PIU 

53. 

53. 

120. 

62. 

12 

VAVS 

55. 

120. 

- 

- 

13 

RHFS 

55. 

120. 


“ 
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2.2 Calculate zone supply air quantities 


If 

QSZCM^. 

QSZHM^ 


TDC 

TDH 


CFM^ =. 

qszHM^. 


(0.245*0.075^60. 

If 

QSZHM^. 

QSZCM^ 


TDH 

TDC 


QSZHM. 

(0.245*0. 075*60. *TDC)(1.+ARI PA) 


If CFMX^. > CFM^. 


CFM. = CFMX. 

2.3 Calculate zone return air 

CFMR. = CFM. - CFMX. 

2.4 Sum system supply and exhaust air flows 

CFMAX. = Z CFM. 
j=l , jmax 

ie-k 

CFMEX. = I CFMX. 

j=l Jmax ' 

2.5 Average system temperature 

Z (CFM . * TSP * MULT . ) 

(CFM. * MULT. ) 
j=l Jmax 

2.6 Minimum outside air fraction - ALFAM. 


If CFMEX,^ < OACFM,^ > CFMAX,^ , 


CFM. = CFM^ * (OACFM|^/CFMAX|^) 

CFMAX. = 0ACFM|^ 

ALFAM,^ = OACFM|^/CFMAX|^ =1.0 

Note: There is a corresponding i for each i; a relationship defined 
by the variable SPACN. .. 

K j J 
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If CFMEX|^< OACFM,^ c CFMAX,^ , 

ALFAM,^ = OACFM|^/CFMAX,^ 

If CFMEX,^ > OACFM,^ < OFMAX,^ , 
OACFM,^ = CFMEX|^ 

ALFAM|^ = CFMEX|^/CFMAX|^ 

2.7 Calculate fan power. 


Supply Fan: 
FBHPS,^ 


CFMAX|^ * TFNPS,^ 
6346 * EFF 


Return Fan: 
FBHPR,^ 


(CFMAX|^ - CFMEX|^) * TFNPR,^ 
6346 * EFF 


Exhaust Fan: 
FBHPE,^ = 


CFMEX|^ - TFNPE|^ 
6346 * EFF 


2.8 Sum building fan power 

TFBHP = Z (FBHPS. + FBHPR. + FBHPE.) 
j=l ,kmax 


2.9 Calculate temperature rise across fans at full load 
Supply Fan: 


DTFNS,^ 
Return Fan: 
DTFNR,^ 


(TFNPS * 0.4014) 

(0.245 * 0.075 * 60.0) 

(TFNPR,^ * 0.4014) 
(0.245 * 0.075 60y 


2.10 Calculate mass flows 


Zones: 

ZMASS^. = CFM^. * 0.075 * 60.0 
ZMASX^. = CFMX^. * 0.075 * 60.0 
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zmSR^. = ZMASS^ - ZMASY^ 

Systems ; 

FMASS,^ = CFMAX^ * 0.075 * 60.0 

FMASX,^ = CFMEX,^ * 0.075 * 60.0 

FMASR|^ = FMASS,^ ^ FMASX,^ 

3. Segment Three . Write FSIZE Information. 

3.1 For each fan system, write out the following: 

K 

FAN^f 

fbhps,^ 

FBHPR,^ 

FBHPE,^ 

JMAX^ 

CFMAX,^ 

CFMIN,^ 

CFMEX,^ 

ALFAM,^ 

3.2 For each zone, write out the following: 

k 

j 

MULT^ 

CFM, 

CFMX. 

TSP<^ 
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MZDD 


A subroutine to simulate tbe performance of a multi-zone or dual 
duct fan system. 

INPUT 

K - Energy distribution system number 

Various items held In COMMON (see Table 5.4 for definitions of 
variables in COMMON). 


OUTPUT 


QCC 

QHC 

QRHC 

QPHC 

TQB 

WATER 

BPKW 

TNFBP 


Cooling coil load (Btu/hr) 

AHU heating coil load (Btu/hr) 

Reheat coil load (Btu/hr) 

Preheat coil load (Btu/hr) 

Baseboard heating load (Btu/hr) 

Steam humidification supplied at air handling 
unit (lbm-H 20 /hr) 

Base power (KW) 

Total net [updated] fan brake horsepower (bhp) 


Various items held in COMMON. 


CALCULATION SEQUENCE 

1. Fan off/on check. 

Using subroutine FANOF, determine whether the fan has been 
turned off for the current hour. 

If the system is off, terminate MZDD simulation for the 
current hour. 

If the system is on, continue. 

2. Identify sensible thermal load of each zone on this system. 
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** 


QSI^ - QS)1 

3. Baseboard radtation. 

If botler on, call subroutine BRAD2 to calculate baseboard 
radiation heat (QBj) and to adjust QSI^ for QBj. 

Sum baseboard radiation heat, 

TQB = z QB. 
j=l ,jmax 

If boiler off, continue. 

4 . Calculate base power (KW); includes internal power, lights 
receptacles, equipment, mi sc. 

BPKW = Z SLPOWj) *MULT. 

j=l , jmax ' 

5. System and zone mass flows remain constant. 

FMASk = z ZMASS. *MULT. 

j=l,jmax ^ ^ 

FMRk = Z ZMASR. *MULT. 

j=l.jmax ^ ^ 

6. Calculate return air temperature (TRAj^). 

NOTE: Since the System and Equipment Simulation Program is 

capable of using LOAD or VARIABLE TEMPERATURE tapes as input, 
the following logic sequence is required. 

If ceiling plenum is calculated as a separate zone. 

If LOAD tape is used, 

DTL2. = 0. 

QLITI = QLITEj[ + QSpj^ + QLITEpj^ + QSINFpj^ ** 

If VARIABLE TEMPERATURE tape is used, 

DTL2^ = STEMPpj- TSPj^ 

QLITI = QLITEj, 

♦’•there U a corresponding S for each 1; a relationship defined by the 
variable SPACN^ Hence, i and jl are defined by system number (k) and 
zone number (j).^ See Para. 5.1 for zone labeling organization. 
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If ceiling plenum is not cal cul cited as a separate zone, 

DTL2^. = 0. 

QLITI = QLITEj( 

DTL. = QLITI/ (0.245 * ZMASR^) 

TRAk = r (TSPO + DTL. + DTL2.) * ZMASR. * MULT. 

j=l.jmax ’ ^ ^ . 

ZMASR. * MULT. * DTFNR,^ 

j=l ,jmax ' ' 

where DTL2. - difference between zone and plenum 

^ temperatures as calculated by VARIABLE 
TEMPERATURE program. 

QLITI - thermal load of plenum pj( above zone^ 
as calculated by LOAD program. 

pi - LOAD program space number of plenum above 
zone 5 . 

7. Calculate required supply air temperature of each zone. 

TS^. = TSPj^ - QSI/ (0.245 * ZMASS.) 

8. Calculate zone humidification requirements. 

Using subroutine H20ZN, calculate total moisture requirements 
Including set point recovery load {H20AD^) and moisture changes 
in current hour due to environmental andVoom effects (H20AD^). 

9. Calculate hot deck and cold deck air temperatures. Generally, 
three control options are available: 

1. Fixed settings for both hot and ipld decks. 

2. Fixed cold deck temperature but allowing hot deck 
temperature to vary inversely with outside air 
temperature . 

3. Reset temperature control as governed by the spaces. 
Control for this mode involves setting the hot deck 
leaving air temperature equal to that of air supplied 
to the space requiring warmest air. The cold deck 
leaving air temperature is set equal to the tempera- 
ture of air supplied to the space requiring coolest 
air. 
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Call subroutine TEMP to calculate hot and cold deck leaving 
air temperatures CTHC and TCC). 

10. Calculate desired economizer approach temperature entering 
supply fan. 

EAT = TCC - DTFNS,^ 

11. Calculate mixed air conditions. 

Call subroutine MXAIR to simulate the performance of: 

1. Fixed outside and return air dampers. 

2. An enthalpy/ temperature type economizer cycle, 
or 

3. A temperature type economizer cycle. 

Subroutine MXAIR also calculates the thermal properties 
(temperature, humidity ratio, and density) of the mixed 
air stream. 

12. Calculate preheat coil load by comparing to mixed air tempera- 
ture desired. 

If boiler on, 

If TMA < EAT, 

QPHC = 0.245 * FMASS,^ * (TMA-EAT) 

TMABF = EAT 
If TMA > EAT, 

QPHC = 0. 

TMABF = TMA 

(TMABF = temperature of mixed air before fan (°F)) 

If boiler off, 

QPHC = 0. 

TMABF = TMA 

13. Calculate mixed air temperature after supply fan. 

TMAAF = TMABF + DTFNS,^ 
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15 


and chflier 

If Chiller Off, deck temperatures. 

* TMMF 
If boiler off, 

■' S;.r «. 

'*'■*,■ = 0.245 * zmss. . (THI- 

QHLNM^ - ^ ^^>^^ables: 

QHPNM. - 
1 

IHHNM. . 

= THC 
If PCTC > T n 

OL* 

i - 0.245 * ZM4SS » (jjj 

"^^‘^-re,a.>edtne J, ^ 

OCUM. . 'C^'-fablea: 

Qcp/vm. . 

7 

iHcm. . 

TS. a Tpp 

Sun, cold and hot dea „« 

aeck mass Hows. 

CMASS = j, 

. zmss. * pcTr 
<1-1 .Jmax 1 ^^'S* 

Hmss = 

- cmss 


5-41 



17. Calculate heating coil load. 

QHC = HMASS * 0.245 (TMAAF - THC) 

WHC = WMA 

18. Calculate cooling coil load. 

Call subroutine CCOIL to calculate cooling coil load (QCC), 
cold deck humidity ratio (WCC), and sensible heat ratio (SHR). 

19. Calculate humidification requirements. 

19.1 Calculate required hot deck humidity ratio (WHRQD). 

CMESS = ZMASS.^^ * P^'^^icz 

HMESS = ZMASS^.^^ * (1. - PCTC.^.^) 

WZRQD = WZ.^2 - H20RD.^^/ZMASS.^2 

WHRQD = (ZMASS.^^ * WZRQD - WCC * CMESS) /HMESS 
where: 

icz - zone in which humidistat is located. 

19.2 Check that WHRQD does not exceed a high limit of 80% R.H. 
within the duct. Call subroutine HUM! to do this. 

19.3 Hot deck humidity ratio. 

If WHRQD < WMA 

WHC = WMA 
If WHRQD > WMA 
WHC = WHRQD. 

19.4 Calculate amount of humidification water required. 

WATER = HMASS * (WHC - WMA) 

20. Calculate zone humidity ratio. 

Using function WZNEW, calculate the humidity ratio of each 
zone (WZ^.). 
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21. Calculate return atr humidity ratio and density. 


WRA. » E W2 * ZMASR. * MULT, 
.1°1..1wax ^ ^ ^ 

Z ZMASR. * MULT. 

J=1 ,jmax ' ' 


DRAfc = PATTI 

^ (0.745 * (TRA,^ + 460.) (1.0 + 7000.0 * W»U\,^/4360.T 
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SZRHT 


A subroutine to simulate tbe operation of a single-zone fan system 
with sub-zone reheat. 

INPUT 

K - Energy distribution system number 

Various items held in COMMON (see Table 5.4 for definitions of 
variables in COMMON). 

OUTPUT 

QCC - Cooling coil load (Btu/hr) 

QHC - AHU heating coil load (Btu/hr) 

QTRHC - Reheat coil load (Btu/hr) 

QPHC - Preheat coil load (Btu/hr) 

TQB - Baseboard heating load (Btu/hr) 

WATER - Steam humidification supplied at air handling 

unit (lbm-H 20 /hr) 

BPKW - Base power (KW) 

TNFBP - Total net [updated] fan brake horsepower (bhp) 

Various items held in COMMON. 

CALCULATION SEQUENCE 

1. Fan off /on check. 

Using subroutine FANOF, determine whether the fan has been 
turned off for the current hour. 

If the system is off, terminate SZRHT simulation for the 
current hour. 

If the system is on, continue. 

2. Identify sensible thermal load of each zone on this system. 
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qsi. ^ qsj^** 

3. Baseboard radiation. 

If boiler on, call subroutine BRAD2 to calculate baseboard 
radiation heat (QBj) and to adjust qsi\j for qB^. 

Sum baseboard radiation heat, 

iqB = I qB. • 

j=l , jmax 

If boiler off, continue. 

4. Calculate required supply air temperature to each zone, 

TS. = TSP - QSI./(0.245 * ZMAS.) 

5. Calculate AHU discharge temperature. 

TLVG = TSj (equals supply air temperature of air to central 

zone which in "j" sequence is assumed to be No. 1) 

6. Calculate fraction of primary air required. 

BETA. = (TS. - TRPRI)/(TLV6 - TRPRI) 

If BETA^. £ 0.5, reheat coil required. 

QZRHC^. = 0.245 * ZMASS^ * (0.5 * (TRPRI + TLVG) - TS . ) 

If BETA. > 0.5, 

If BETA ^ 1.0, cooling load not met. 

Call subroutine CCOIL to calculate cooling load 
not met (QLNM^). 

Update as required the following variables: 
qCLNM^ - 
qCPNM. - 
IHCNM. - 
TS. = TLVG 

**N0TE: There is a corresponding 5. for each i; a relationship defined by the 
variable SPACN|^ .. Hence, i and j!. are defined by system number (k) 
and zone number*'^ (j). See Para. 5.1 for zone labeling organization. 
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If BETA 1.0, continue. 

7. Calculate zone mass flows. 

ZMAS^ = ZMASS. * BETA^ 

ZMASR^ = ZMAS. - ZMASX. 

If ZMASR < 0.0. 

ZMASR = 0. 

8. Calculate system mass flows. 

FMAS = E ZMAS. * MULT, 

j=l ,jmax ' ^ 

FMAR = E ZMASR. * MULT^ 
j=l ,jmax ' 

9. Calculate percent of full load. 

PCTSA = FMAS/FMASS,^ 

PCTRA = FMAR/FMASR,^ 

10. Calculate return air temperature (TRAj^). 

NOTE: Since the System and Equipment Simulation Program is 
capable of using LOAD or VARIABLE TEMPERATURE tapes as input, 
the following logic sequence is required. 

If ceiling plenum is calculated as a separate zone. 

If LOAD tape is used, 

DTL2. = 0. 

QLITI = QLITE^ + QSpj^ + QLITEpj+ QSINFpjj ** 

If VARIABLE TEMPERATURE tape is used, 

DTL2. = STEMPpj^- TSPj| 

QLITI = QLITEj^ 

If ceiling plenum is not calculated as a separate zone, 

DTL2^ = 0. 

QLITI = QLITE)t 
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DTL^ = QHTI/CO.245 ZMASR.) 

TRA. Z (TSPO t DTL. + DTL2.) * ZMASR, * MULT, 
■1=1..iinax ^ ^ ^ ^ 

Z ZMASR. * MULT. 
j=l , jmax ‘ ' 

+ DTFNR,^ * PTLD(NVFC|^,PCTRA) 

where DTLZ^ - difference between zone and plenum 

' temperatures as calculated by VARIABLE 
TEMPERATURE program. 

QLITI - thermal load of plenum p-/above zone 
as calculated by LOAD program. 

pj[ - LOAD program space number of plenum above 
zonej^ . 

n. Calculate desired economizer approach temperature (EAT). 

EAT = TLVG - DTFNS,^ * PTLD(NVFC|^ , PCTSA) 

12. Calculate mixed air conditions entering preheat coil. 

Call subroutine MXAIR to simulate the performance of: 

1. Fixed outside and return air dampers. 

2. An enthalpy/temperature type economizer cycle. 


3. A temperature type economizer cycle. 

Subroutine MXAIR also calculates the thermal properties 
(temperature, humidity ratio, and density) of the mixed 
air stream. 

13. Air Handling Unit (AHU). 

13.1 If boiler and chiller on, if chiller on and cooling 
called, or if boiler and heating called. 

Call subroutine AHU (mode 2) to simulate the 
operation of a central system air handling unit. 
Calculate heating and cooling coil operation (QHC 
and QCC), the effect of fan heat, and the addition 
of steam (WATER) by a humidifier on the discharge 
side of the unit. 

Go to 14. 
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13.2 If boiler off and heating required at AHU, 

TLVG = TMA + DTFNS,^ * PTLDCNVFC,^,PCTSA) 

Go to 13.4. 

13.3 If chiller off and cooling required at AHU, 

TLVG = TMA + DTFNS,^ * PTLD(NVFC,^ , PCTSA) 

Go to 13.4. 

13.4 If TLVG-TLVG2 < 0.001, 

TLVG 

Call subroutine AHU (mode 2) to simulate the 
operation of a central system air handling unit. 
Calculate heating and cooling coil operation (QHC 
and QCC), the effect of fan heat, and the addition 
of steam (WATER) by a humidifier on the discharge 
side of the unit. 

Go to 14. 

If TLVG-TLVG2 > 0.001 . 

Tlvg 

TLVG = TLVG2 = TLVG. 

Go to Step 2. 

14. Adjust total fan brake horsepower. 

PCTSA = SMCFM/CFMAX^. 

TNFBP = TNFBP + (PTLD(NVFC|^, PCTSA) - 1.0) * FBHPS,^ 

+ (PTLD(NVFC|^, PCTRA) - 1.0) * FBHPR,^ 

15. Calculate base power (KW); includes internal power, lights 
receptacles, equipment, mi sc. 

BPKW = E SLPOWfl* MULT. 
j=l ,jmax ' 

16. Calculate zone humidity ratio. 

Using function WZNEW, calculate the humidity ratio of each 
zone (WZ^. ). 

17. Calculate return air humidity ratio and density. 
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WRAt = E MZ. * ZMASR. * MULT. 

^ ^ ^ 

Z ZMASR. * MULT. 

0=1 ,jmax ’ ^ 

DRA. = PATM 

^ CO. 754 * CTRA,^ + 460.1(1.0 + 7000.0 * WRA^/4360.) 
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FHTG2 


A subroutine for simulating the system performance of the floor panel 
heating system. 


INPUT 

TOA 

K 

JMAXK 


QL^ 

QLITE/ 


SLPOW 


TCO 

PERIM, 

k 

PAREA k. 

PLOCk 

CINSL 

DINSL 

TSP/ 

KFLCV 

OUTPUT 

QFPC 

QFPH 

QFPRH 

BPKW 


Dry-bulb temperature of outside air, °F 
Fan system number 

Number of zones on fan system No. K 

Hourly sensible load for zone No.y/stu/hr 

Hourly latent load for zone No. Btu/hr 

Hourly lighting load picked up by return air 
in zone No.^ Btu/hr. 

Hourly zone internal lighting and machinery 
power consumption, KW, for zone No.^ 

Building changeover temperature, °F 

Exposed perimeter of floor for distribution system 
No. k, ft. 

Floor area available for heating panels, system k sq. ft. 
Location of floor heating panel for system No.k 
Floor insulation conductance, Btu/hr-sq.ft.-°F 
Floor insulation thickness, ft. 

Set point temperature of zone No.^, °F 
Type of floor covering 

Hourly cooling requirement, Btu/hr 

Hourly heating requirement, Btu/hr 

Hourly reheat requirement, Btu/hr 

Total internal lights and machinery power 
consumption for zones served by system under 
consideration, KW 
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CALCULATION SEQUENCE* 


1. Read load input tape for zones required and calculate: 

BPKW = j;SLP0W/ *MULT£^ , for J = 1 to JMAXK 
QSl£ = QS^ +QLITE^ 

QSSUM = IQSI^ , for all zones on this system requiring heating 

2. If TOA > TOACOl , go to calculation 2.1, otherwise go to calculation 

2.2 

2.1 No heating available since building system is operating 
in cooling mode, therefore set 

QFPC = 0.0 

QFPH = 0.0 

QFPRH = 0.0 


Go to 3. 

2.2 Heating available within building, therefore perform 
the following: 

2.2.1 Calculate panel temperature, TPAN, required for 
desired heating flux, QPAN. 

QPAN = QSSUM/ PAREAj^ 

Calculate set point temperature of system 
TSPJl = TSPj^ where TSP^ is the set 
point of the first zone. 

Initially, set TPAN = 76.0 

QCALC = 0.15 * ((TPAN + 460.0)/100.0) 

** 4.0 - 0.15 ((TSPJl + 460.0)7100.0) 

** 4.0 + 0.32 * (TPAN - TSPJl) ** 1.31 

If (QPAN - QCALC) is greater than (0.01 * QPAN), 
calculate a new TPAN 

TPAN = TPAN + 0.5 * (QPAN - QCALC) 

and repeat above calculation. If necessary, 
repeat again until QCALC is within (0.01 * QPAN). 


♦See 1967 ASHRAE Guide and Data Book , Systems and Equipment Volume, 
Chapter 58, for derivation of all equations. 
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2.2.2 Calculate surface temperature of floor required 
as a function of the type of floor covering. 


2. 2. 2.1 If KFLCV = 1, bare concrete floor, 
therefore 

TSUR = TPAN 

2. 2. 2. 2 If KFLCV = 2, tile covering, therefore 
TSUR = TPAN + QPAN * 0.05 

2. 2. 2. 3 If KFLCV * 3, carpeting, therefore 
TSUR = TPAN + QPAN * 1.4 

2.2.3 If TSUR as calculated above is greater than 
85.0°F, reset 

TSUR =85.0 

2.2.4 Calculate the downward and edgewise loss 
coefficient, C3. 

2. 2.4.1 If CINSL = 0.0, no insulation, 
therefore 

C3 =1.8 

2. 2.4. 2 If CINSL > 0.0, and DINSL = 0.0, then 
only perimeter insulation, therefore 

C3 = 1.32 + 0.25 * CINSL 

2. 2. 4. 3 If CINSL > 0.0 and DINSL > 0.0, then 
C3 = 0.932 + 0.523 * CINSL 

- 0.479 * CINSL ** 2.0 

- 0.271 * DINSL + 0.046 * DINSL 
** 2.0 + 0.786 * CINSL * DINSL 

- 0.72 * DINSL * CINSL ** 2.0 

- 0.182 * CINSL * DINSL ** 2.0 
+ 0.24 * (DINSL * CINSL) ** 2.0 
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2.2.5 Calculate downward and edgewise heat loss, QLOSS. 

2. 2. 5.1 If PLOCjj = 1, then 

QLOSS = PERIMt * C3 * (TPAN - TOA)/ 
PAREAj^' 

2. 2. 5. 2 If PLOC (K) = 2, then 

QLOSS = 0.15 * ((TPAN + 460.0)/100.0) 

** 4.0 - 0.15 * (TSPJl + 460.0)/ 
100.0) ** 4.0 + 0.021 
* (TPAN - TSPJl) ** 1.25 

2.2.6 Calculate heating requirement of system. 

QFPH = 1.0 * (QPAN + QLOSS) * PAREA^ 

QFPC =0.0 
QFPRH = 0.0 

3. Distribute unmet heating and cooling loads, finding: 

Heating and cooling peak, consumption, and number of hours 
heating and cooling loads were not met. 
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FCOIL 


A subnoutine to simulate the operation of two- and four-pipe fancoil 
systems consisting of blow-through type fancoil units, 

INPUT 

k : Energy distribution system number 

Various items held in COMMON (see Table 5.4 for definition of variables 
in COMMON). 


OUTPUT 


Cooling load (BTU/HR) 

(QC = 

1 

QCJ ** 



j=l, jmax 

1 

Heating load (BTU/HR) 

(QH = 

1 

QH^) ** 



j=l, jmax 



TQB ; Baseboard heating load (BTU/HR) 

BPKW ; Base power (KW) 

TNFBP : Total net (updated) fan brake horsepower (BMP) 

CALCULATION SEQUENCE 
1. Fan off/on check. 

Using subroutine FANOF, determine whether fancoil units have been turned 
off for the current hour. 

If fancoil units are off, terminate fancoil simulation. 

If fancoil units are on, continue. 


2. For two-pipe fancoil units, use subroutine TEMP to determine process 
water mode (i.e., hot water, chilled water, or changeover) for the 
current hour. 


**N0TE; There is a corresponding i for each i, a relationship defined by the 
variable SPACN|^^j. Hence, i and are defined by system number (k) 

and zone number of system (j). See Para. 5.1 for zone labeling 
organization. 
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3. Calculate base power (KW), includes internal power, lights, receptacles, 
equipment, miscellaneous. 

BPKW = I SLPOWj^* MULT. ** 
j=l, jmax ' 

Calculation sequence 4 through 12 is repeated for each fancoil zone on 
system k. 


4, Calculate sensible thermal load. 

QSI. = QSj( + QLITEj^ ** 

5. Baseboard radiation. 

If boiler is on, call subroutine BRAD2 to calculate baseboard radiation 
heat (QB.) and adjust QSI. 

J 

Sum baseboard radiation heat. 

TQB = ^ QB. 

j=l, jmax ^ 

If boiler is off, continue. 


6. Calculate mixed air conditions. 

Call subroutine MXAIR to calculate thermal properties (temperature, 
humidity ratio, and density) of mixing outside air and room air by the 
fancoil unit. 


7. Calculate mass flow through fancoil unit. 

ZMAS = CFM^. * DMA * 60.0 
where DMA = mixed air density (LBM/FT^) 


8. Calculate required supply air temperature. 

TSA. = TSP^ - QSI./(0.245 * ZMAS^. ) ** 

**N0TE: There is a corresponding i for each i, a relationship defined by the 
variable SPACN|^ Hence, i and X are defined by system number (k) and 
zone number of System (j). See Para. 5.1 for zone labeling organi- 
zation. 
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9. Calculate fan heat and mixed air temperature downstream of blower. 


QFAN = CFM^ TFNPSj^ * 0.4014 
TMA = TMA + QFAN/(0.245 * ZMAS.) 

10. Zone humidity calculations. 

Using subroutine H20ZN, calculate total moisture requirements including 
set point recovery load (H20RD.) and moisture changes in current hour 
due to environmental and room effects (H20AD^). 

11. Calculate fancoil performance and distribute thermal loads. 

11.1 Two-Pipe Fancoil System 

11.1.1 Heating Mode (IPW = -1) 

If TMA < TSA, heating required. 

If boiler on, call subroutine ZLjJ3 to calculate QH and 
distribute unmet load, if any. 

If boiler off, heating load not met, 

QLNM. = ZMAS. * 0.245 * (TMA - TSA) 

Update as required: 

QHLNM^. : Sum of all heating loads not met, zone 1. 
QHPNM. : Peak heating load not met, zone i. 

IHHNM. ; Hours heating load not met, zone 1. 

If TMA > TSA, cooling load not met. 

Call subroutine CCOIL to calculate cooling load not met. 
Update as required the following variables: 

QCLNM^. : Sum of all cooling loads not met, zone i. 
QCPNM^ : Peak cooling load not met, zone i. 

IHCNM^- : Hours cooling load not met, zone i. 
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n . 1 . 2 Changeover Mode (IPW = 0 ) 


During the changeover hour, it is assumed that both heating and 
cooling loads may be met. Therefore, the four-pipe fancoil system 
zone analysis is used (see 11.2). In addition, there is a thermal 
load due to changing the tempdrature of the hydronic system (see 13.). 

11.1.3 Cooling Mode (IPW = +1) 

If TMA < TSA, cooling requiredo 

If chiller on, call subroutine ZL03 to calculate QC. and 
distribute unmet load, if any. 

If chiller off, cooling load not met. Call subroutine 
CCOIL to calculate cooling loads not met. 

Update as requfred: 

QCLNM^. : Sum of all cooling loads not met, zone i. 

QCPNM^. : Peak cooling load not met, zone i. 

IHCNM. : Hours cooling load not met, zone i. 

If TMA > TSA, heating Toad not met. 

QLNM^. = ZMAS. * 0.245* (TMA - TSA) 

Update, as required: 

QHLNM,j : Sum of all heating loads not met, zone i. 

QHPNM^. : Peak heating load not met, zone i. 

IHHNM,j : Hours heating load not met, zone i. 

11.2 Four-Pipe Fancoil System 

If TMA £TSA, heating required. 

If boiler on, call subroutine ZL03 to calculate QH- and 
distribute unmet load, if any. 

If boiler off, heating load not met. 

QLNM. = ZMAS. * 0.245 * (TMA - TSA) 

Update as required the following variables: 

QHLNM^ : Sum of all heating loads not met, zone i. 

QHPNM,. : Peak heating load not met, zone i. 

IHHNM. : Hours heating load not met, zone i. 
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If TMA > TSA, cooling required. 

If chiller on, call subroutine ZL03 to calculate QCj and 
distribute unmet load, if any. 

If chiller off, cooling load not met. Call subroutine 
CCOIL to calculate cooling load not met. 

Update as required the following variables: 

QCLNM^. : Sum of all cooling loads not met, zone 1. 

QCPNM^ : Peak cooling load not met, zone i. 

IHCNM^- : Hours cooling load not met, zone i. 

12. Calculate zone humidity ratio. 

Using function WZNEW, calculate the humidity ratio of each zone. 

13. Calculate heat of changeover (for two-pipe fancoil systems only). 

If IPW = 0, changeover. 

Calculate hot water temperature (THW) using function TRSET. 
Calculate changeover heat : QCO 

QCO = PWGAL,^ *8.3 * (THW -‘TLCHL) 
where PWGALj^ : Water volume of two-pipe system (GALS) 
TLCHL : Chilled water temperature (®F) 

If heating-to-cooling changeover: 

QC = QC + QCO 

If cooling-to-heating changeover: 

QC = QH - QCO 
If IPW f 0, continue. 
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INDUC 


A subroutine to simulate the operation of two and four pipe induc- 
tion unit fan systems having induction units whose primary and induced 
room air streams mix after induced air is tempered. Induction unit cool- 
ing coil limited to sensible cooling only. 


INPUT 

K : Energy distribution system number. 

Various items held in COMMON (See Table 5.4 for definition of 
variables in COMMON). 

OUTPUT 

QCC : Total cooling load (Btu/hr) (QCC = E QC-) 

J=l, jmax 

QHC ; Heating load at AHU (Btu/hr) (QHC = E QH.) 

j=l, jmax 

QTRHC : Heating load at induction unit (Btu/hr) 

(QTRHC = E QRHC.)** 
j=l, jmax 

TQB : Baseboard heating load (Btu/hr) 

WATER : Steam humidification supplied at air handling unit 

(lbs-H20/hr). 

BPKW : Base power (KW) 

TNFBP : Total net [updated] fan brake horsepower (Bhp) 

Various items held in COMMON. 

CALCULATION SEQUENCE 
1. Fan off/ on check. 

Using subroutine FANOF, determine whether air handler has been turned 
off for the current hour 

If the system is off, terminate induction system simulation. 

If the system is on, continue. 
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2. Calculate temperature leaving air handler (TLVG). 

If two-pipe induction unit fan system, call subroutine TEMP 
to calculate primary air temperature and induction unit water 
mode indicator (IPW). This is graphically represented as 
follows: 



OUTSIDE AIR DB TEMPERATURE (°F) 


Figure 5.3 TWO-PIPE INDUCTION UNIT AIR AND WATER SCHEDULING 

NOTE: TOAHI [hot water] should be set equal to TOALO (pri- 

mary air). 

If four-pipe induction unit fan system, primary air is held 
constant (set equal to TFIXlj^). 

3. Calculate fraction of primary to total air (ALFIU) 

ALFIU = 1.0/(1.0 + RIPA,^) 

4. Calculate base power (KW); includes internal power, lights, recepta- 
cles, equipment, miscellaneous. 

BPKW = E SLPOW- * MULT. ** 
j=l , jmax ^ 

5. Identify sensible thermal load of each zone on this system. 

QSI. =QS^** 


**N0TE: There is a corresponding £ for each i, a relationship defined by 

the variable SPACN|<^j. Hence, i and i are defined by system 
number (k) and zone’number of system (j). See Table 5.1 for zone 
labeling organization. 
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6. Baseboard radiation. 

If boiler on, call subroutine BRAD2 to calculate baseboard 
radiation heat (QBj) and adjust QS I for QB. . 

Sum baseboard radiation heat. 

TQB = E QB. 
j=l, jmax ^ 

If boiler off, continue. 

7. Calculate return air temperature (TRA|^.)- 

NOTE: Since the system and equipment simulation program is capable 

of using LOAD or VARIABLE TEMPERATURE tapes as input, the 
following logic sequence is required. 

If ceiling plenum is calculated as a separate zone. 

If LOAD tape is used, 

DTL2. =0.0 

QLITI = QLITE^ + QSp^ + QLITEp^ + QSINFp^ ** 

If VARIABLE TEMPERATURE tape is used, 

DTL2. = STEMPpj^- TSP^ 

QLITI = QLITEji 

If ceiling plenum is not calculated as a separate zone, 

DTL2. =0.0 
QLITI = QLITE/ 

DTL- = QLITl/(0.245 * ZMASR^.) 

™k 

where DTL2. — Difference between zone and plenum tempera- 
tures as calculated by VARIABLE TEMPERATURE 
program. 

QLITI — Thermal load of plenum pjt above zone j£ as 
calculated by LOAD program. 


= ( Z (TSP^ + DTL. + DTL2 . ) * ZMASR. * MULT.) + DTFNR,^ 
j=l , jmax * ' ' 
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8. Zone humidity calculations. 

Using subroutine H20ZN, calculate total moisture requirements 
including set point recovery load (H20RD.) and moisture changes 
in current hour due to environmental andVoom effects (H20AD^). 

9. Calculate economizer approach temperature (EAT). 

If TLVG > 125.0‘’F, 

TLVG = 125.0®F 
EAT = TLVG - DTFNS,^ 

If EAT < 40.0®F 
EAT = 40.0®F 
TLVG = EAT + DTFNS,^ 


10. Calculate mixed air conditions. 

Call subroutine MXAIR to simulate the performance of: 

1. Fixed outside and return air dampers 

2. An enthalpy/temperature type economizer cycle. 

3. A temperature type economizer cycle 

Subroutine MXAIR also calculates the thermal properties (temper- 
ature, humidity ratio, and density) of the mixed air stream, 

11. Air handling unit. 

Call subroutine AHU (mode 1) to simulate the functioning of a central 
system air handling unit. Calculate heating and cooling coil 
thermal response (QHC and QCC) of fan heat, and operation of 
steam humidifier on discharge side of unit (WATER). 

The heating coil is locked out when the boiler scheduled off. 

The cooling coil Is locked out when the chiller scheduled off. 

The humidifier is locked out when the cooling coil is functioning. 
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12. Calculate induction unit coil sensible thermal load and induced 
air mass flow. 

QSIU^ = QSI^. + ZMASS^ * 0.245 * (TLVG - TSJ ) 

ZMAS^ = ZMASS^ * RIPA^ 

13. Induction unit simulation. 

13.1 Two-pipe induction unit. 

13.1.1 Hot water mode (IPW = -1). 

IfQSIU. <0.0, 

If boiler on, 

TLC^. = -QSIU^./(ZMAS^. * 0.245) + TS^ 

where TLC. - Temperature of induced air after coil 

’ (°f5. 

Call subroutine ZL03 to calculate induction unit heating 
load and distribute an unmet load, if any. 

If boiler off, heating load not met. 

QLNM^ = QSIU. 

Update as required the following variables: 

QHLNM. - 

qhpnm: - 
ihhnm! - 

If QSIU^. >0.0, cooling load not met. 

QLNM. = QSIU. 

Update as required the following variables: 

QCLNM. - 
QCPNM] - 
IHCNMj - 

13.1.2 Changeover mode (IPW = 0). 

During the changeover hour, it is assumed that both heating 
and cooling loads may be met. Therefore, the four-pipe fan- 
coil system zone analysis is used (see 13.2.). In addition, 
there is a thermal load due to changing the temperature of 
the hydronic system (see 17.). 
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13.1.3 Cooling mode (IPW « +1) 

If QSIU^ >0.0, cooling required. 

If chiller on, 

TLC| = -QSIU^/(ZMAS^ * 0.245) + TS^ 

Call subroutine ZL03 to calculate cooling load and 
distribute an unmet load, if any. 

If chiller off, cooling load not met. 

QLNM^. = QSIU^. 

Update as required the following variables: 

QCLNM.. - 

qcpnm: - 

IHCNM] - 

If QSlU^.< 0.0, heating load not met. 

QLNM. = QSIU^. 

Update as required the following variables: 

QHLNM. - 
QHPNM] - 
IHHNM] - 

13,2 Four-pipe induction unit. 

If QSIU. ^0.0, heating required. 

If boiler on, 

TLC^. = -QSIU^./(ZMAS^ * 0.245) + TS^ 

Call subroutine ZL03 to calculate induction unit heating 
load and distribute an unmet load, if any. 

If boiler off, heating load not met. 

QLNM^. = QSIU. 

Update as required the following variables: 

QHLNM.. - 
QHPNMJ - 
IHHNMj - 
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If QSIU. 0.0, cooling required, 

If chiller on, 

TLC^. = -QSIU^/(ZMAS^ * 0.245) + TS^ 

Call subroutine ZL03 to calculate cooling load and dis^ 
tribute an unmet load, if any. 

If chiller off, cooling load not met. 

QLNM. = QSIU. 

Update as required the following variables: 


QCLNM. - 
QCPNMl - 

ihcnm! - 

14. Calculate thermal properties (temperature and humidity ratio) of 
air leaving the induction unit. 

TTLVG.= (TLVG * ZMASS^- + TLC * ZMAS. )/(ZMASS^ + ZMAS^.) 

WTLVG^= (WSUP * ZMASS. + WCLVG * ZMAS^. )/{ZMASS^. + ZMAS^.) 

15. Calculate zone humidity ratio. 

Using function WZNEW, calculate the humidity ratio of each 
zone (WZ^.). 

16. Calculate return air humidity ratio and density. 

ZMASR, * MULT,) 

DRA|^ = PATH/((0.754 ♦ (TRA|^ + 460.0)*(1.0 + 70150.0 * WRA|^/4360.0)) 

17. Calculate heat of changeover (for two-pipe induction systems only). 

I 

If IPW = 0 (changeover). 


Calculate hot water temperature using funciion TRSET. 

I 

( 

Calculate changeover heat, QCO 


QCO = PWGAL|^ * 8.3 * (THW - TLCHL) I 

I 

where, PWGAL, - Water volume of two-pipe induction unit 
^ system (gal.) j 

TLCHL - Chilled water temperati|re (°F) 
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If heating to cooling changeover: 
qc = QC + QCO 

If cooling to heating changeover: 
QH = QH - QCO 
If IPW ^ 0, continue. 
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VARVL 


A subroutine to simulate the operation of a variable volume fan 
system with optional reheat. 

INPUT 


K - Energy distribution system number 

Various items held in COMMON (see Table 5.4 for definitions of 
variables in COMMON). 


OUTPUT 


QCC 

QHC 

QTRHC 

TQB 

WATER 

BPKW 

TNFBP 


Cooling coil load (Btu/hr) i 

AHU heating coil load (Btu/hr) 

Reheat coil load (Btu/hr) 

Baseboard heating load (Btu/hr) 

Steam humidification supplied at air handling 
unit (lbm-H 20 /hr) 

Base power (KW) 

Total net [updated] fan brake horsepower (bhp) 


Various items held in COMMON. 


CALCULATION SEQUENCE 

1. Fan off/on check. 

Using subroutine FANOF, determine whether the fan has been 
turned off for the current hour. 

If the system is off, terminate VARVL simulation for the 
current hour. 

If the system is on, continue. 

2. Identify leaving AHU air temperature, 

TLVG = TFIX1|^ 

TLVG2 = TLVG 
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** 


3. Identify sensible thermal load of each zone on this system. 

QSI^ = QSjj ** 

4. Baseboard radiation. 

If boiler on, call subroutine BRAD2 to calculate baseboard 
radiation heat (QB.) and to adjust QSI. for QB.. 

\J * V 

Sum baseboard radiation heat, 

TQB = Z QB. 
j=l , jmax ^ 

If boiler off, continue. 

5. Calculate air mass flow and temperature to each zone, 

ZMAS^ = QSI./ (0.245 » (TSP^ - TLVG)) 

If ZMAS. > ZMASS. 

ZMAS. = ZMASS ^ 

If ZMAS^. < ZMASS. * VVMIN|^ 

ZMAS^. = ZMASS. * VVMIN,^ 

ZMASR^. = ZMAS. - ZMASX- 
If ZMASR. <0.0, 

ZMASR^. = 0. 

TS. = TSPj^ -QSI. /(0. 245 * ZMAS.) 

6. Calculate system mass flows. 

FMAS. = Z ZMAS. * MULT^. 
j=l , jmax 

FMR. = Z ZMASR. * MULT. 

^ j=l ,jmax 

7. Calculate supply and return air full load flows. 

PCTSA =* FMASj^/FMASS,^ 

PCTRA = FMRj^/FMASR^ 

There is a corresponding A for each i; a relationship defined by the 
variable SPACN^ .. Hence, i and t are defined by system number (k) 
and zone number^ (j). See Para. 5.1 for zone labeling organization. 
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8. Calculate return air temperature (TRAj^). 

NOTE: Since the System and Equipment Simulation Program is 
capable of using LOAD or VARIABLE TEMPERATURE tapes as input, 
the following logic sequence is required. 

If ceiling plenum is calculated as a separate zone. 

If LOAD tape is used, 

DTL2. = 0. 

QLITI = QLITEj^ + QSpj^ + QLITEpj + QSINFpj^ ** 

If variable temperature tape is used, 

DTL2^ - STEMPpj^- TSPjj 
QLITI = QLITEj^ 

If ceiling plenum is not calculated as a separate zone, 

DTL2^ = 0. 

QLITI = QLITEJi 
DTL^ = QLITJ/(0.245 * ZMASR^) 

TRA,^ = r (TSPj + DTL^ + DTL2^) * ZMASR^ * MULT^ 
j~l , jmax 

Z ZMASR. * MULT. 
j=l ,jmax ' 

+ DTFNR,^ * PTLD(NVFC|^,PCTRA) 

where DTL2. - difference between zone and plenum 

' temperatures as calculated by VARIABLE 
TEMPERATURE program. 

QLITI - thermal load of plenum p\ above zonejl 
as calculated by LOAD program. 

pj - LOAD program space number of plenum above 
zone j/ . 

9. Zone humidity calculations. 

Using subroutine H20ZN, calculate total moisture requirements 
including set point recovery load (H20AD. ) and moisture changes 
in current hour due to environmental and room effects (H20AD.). 
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10. Calculate economizer approach temperature (EAT). 

If TLVG > 125.°F 

TLVG = 125.°F 
EAT = TLVG - DTFNS,^ 

If EAT < 40. °F 
EAT = 40. °F 
TLVG = EAT + DTFNS,^ 

11. Calculate mixed air conditions. 

Call subroutine MXAIR to simulate the performance of: 

1. Fixed outside and return air dampers. 

2. An enthalpy/ temperature type economizer cycle, 
or 

3. A temperature type economizer cycle. 

Subroutine MXAIR also calculates the thermal properties 
(temperaure, humidity ratio, and density) of the mixed 
air stream. 

12. Air Handling Unit (AHU). 

12.1 If boiler and chiller on, if chiller on and cooling 
called, or if boiler and heating called, 

Call subroutine AHU (mode 1) to simulate the 
operation of a central system air handling unit. 
Calculate heating and cooling coil operation (QHC 
and QCC), the effect of fan heat, and the addition 
of steam (WATER) by a humidifier on the discharge 
side of the unit. 

Go to 13. 

12.2 If boiler off and heating required at AHU, 

TLVG = TMA + DTFNS|^* PTLD(NVFC|^,PCTSA) 

Go to 12.4. 

12.3 If chiller off and cooling required at AHU, 

TLVG = TMA + DTFNS,^ * PTLD(NVFC,^ , PCTSA) 

Go to 12.4. 
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12.4 If TLVG-TLVG2 < 0.001, 
TLYG 


Call subroutine AHU (mode 1) to simulate the 
operation of a central system air handling unit. 
Calculate heating and cooling coil operation (QHC 
and QCC), the effect of fan heat, and the addition 
of steam (WATER) by a humidifier on the discharge 
side of the unit. 

Go to 1 3 . 

If TLVG-TLVG2 >0.001, 

Tlvg 

TLVG = TLVG2 = TLVG. 

Go to Step 3. 

13. Adjust total fan brake horsepower. 

PCTSA = SMCFM/CFMAX|^ 

TNFBP = TNFBP + (PTLD(NVFC|^, PCTSA) -1 .0)*FBHPS|^ 

+ (PTLD(NVFC|^, PCTRA)-1.0)*FBHPR|^ 

14. Calculate base power (KW); includes internal power, lights 
receptacles, equipment, misc. 

BPKW = S SLPOWfl* MULT. 
j=l ,jmax ^ 

15. Terminal unit performance. 

QT^. = ZMAS, ^ 0.245 * (TLVG - TS^.) 

If no reheat coils. 

If QT^. < 0.0, heating load not met. 

QLNM. = QT. 

Update as required the following variables: 

QHLNM^ - 

QHPNM^. - 

IHHNM. - 
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TS^ = TLVQ 

WTLVQ = WSUP (WSUP = supply air humidity ratio. It is 
calculated in subroutine AHU.) 

If QT^= 0.0, 

WTLVG = WSUP 

If QT^> 0.0, cooling load not met. 

QLNM^ = QT. 

Update as required the following variables: 

QCLNM^. - 
QCPNM^. - 
IHCNM. - 
TS^ = TLVG 
WTLVG^. = WSUP 

If terminal has reheat coil. 

If QT.< 0, 

If boiler on, 

Call subroutine ZL03 to calculate and sum reheat 
coil loads and distribute loads not met, if any. 

If boiler off, heating load not met. 

QLNM. = QT. 

Update as required the following variables: 

QHLNM. - 
qCLNM^ - 
IHHNM^ 

TS. = TLVG 
WTLVG. = WSUP 
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If QT^.= 0.0, 

WTLVG = WSUP 

If QT. > 0.0, cooling load not met. 

Call subroutine CCOIL to calculate cooling load not 
met (QLNM^). 

Update as required the following variables: 

QCLNM^ - 
QCPNM^ - 
IHCNM^ - 
TS^ = TLVG 
WTLVG^ = WSUP 
Go to 13. 

16. Calculate zone humidity ratio. 

Using function WZNEW, calculate the humidity ratio of each 
zone (WZ^). 

17. Calculate return air humidity ratio and density. 

WRAk = Z WZ. * ZMASR. ^ MULT. 

j=1 ,jmax ] 

Z ZMASR. * MULT. 
j=l ,jmax ' 

drAk = p/h;m 

(0.754 * (TRA,^ + 460.)(1.0 + 7000.0 * WRA,^/4360.) 
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RHFS2 


A subroutine to simulate the operation of a single-zone fan system 
with face and bypass dampers, a unit ventilator, a unit heater, or a 
constant volume reheat fan system. 

INPUT 

K - Energy distribution system number. 

Various items held in COMMON (see Table 5.4 for definitions of 
variables in COMMON). 

OUTPUT 

QCC - Cooling coil load (Btu/hr.) 

QHC - AHU heating coil load (Btu/hr.) 

QTRHC - Reheat coil load (Btu/hr.) 

TQB - Baseboard heating load (Btu/hr.) 

WATER - Steam humidification supplied at air handling 
unit (lbm-H 20 /hr. ) 

BPKW - Base power (Kw) 

TNFBP - Total net [updated] fan brake horsepower (bhp) 

Various items held in COMMON. 

CALCULATION SEQUENCE 

1. Fan off/on check. 

Using subroutine FANOF, determine whether the fan has been turned 
off for the current hour. 

If the system is off, terminate RHFS2 simulation for the current 
hour. 

If the system is on, continue. 

2. Identify sensible thermal loss of each zone on this system. 

QSI. = QS|j ** 
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3. Baseboard radiation. 


If boiler on, call subroutine BRAD2 to calculate baseboard radia- 
tion heat (QBj) and to adjust QSI^ for QBj. 

Sum baseboard radiation heat, 

TQB = E QB. 
j=l , j max 

If boiler off, continue. 

4. Calculate required zone supply air temperatures. 

TS. = TSP» - QS I./ (0.245 - ZMASS.) 

1 A I 1 

5. Calculate base power (Kw); Includes Internal power, lights 
receptacles, equipment, ml sc. 

BPKW = .f, . SLPOWq * MULT. ** 

J-1 . Jmax 1 

6. Calculate return air temperature, TRAj^ 

NOTE: Since the System and Equipment Simulation Program Is 

capable of using LOAD or VARIABLE TEMPERATURE tapes 
as input, the following logic sequence is required. 

j' 

If ceiling plenum is calculated as a separate zone. 

If LOAD tape is used, 

DTL2^. = 0. 

QLITI = QLITEj^ + QSp^ + QLITEpj^ + QSINFpj^** 

If VARIABLE TEMPERATURE tape is used, 

DTL2. = STEMPpj^- TSPj^ 

QLITI = QLITEj^ 

If ceiling plenum is not calculated as a separate zone, 

DTL2^. = 0 
QLITI = QLITEjt 


**NoYfe : There is a corresponding X for each i; a relationship defined by 
the variable SPACN^ .. Hence, i and are defined by system number (k) 
and zone number See Para. 5.1 for zone labeling organization. 
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DTL. = QHTl/(0.245 


TRA,=| 


E (TSP 
j=l Jjnax 


* ZMASR^) 

+ DTL. + DTL2^) * ZMASR. * MULT. 


z ZMASR. * MULT. 
j=l ,jmax ' ^ 


+ DTFNR,^ 


where DTL2. - difference between zone and plenum temperatures 
as calculated by VARIABLE TEMPERATURE program. 


QLITI - thermal load of plenum px above zone x as 
calculated by LOAD program. 

_ load program space number of plenum above zone 1 

7. Zone humidity calculations 

Using subroutine H20ZN, calculate total moisture requirements 
including setpoint recovery load (H20AD.) and moisture changes 
in current hour due to environmental ana room effects (H20AD^) 

8. Calculate air temperature leaving unit. 


8.1 For single-zone fan system, unit ventilator, and unit heater. 


TLVG = TS^ 


(one) 


8.2 For constant volume heat fan system, air handler discharge 
temperature (TLVG) is controlled in one of three ways: 


1. constant leaving air temperature 


2. set equal to lowest TS. 

3. reset as an inverse function of ambient air temperature. 

Call subroutine TEMP to calculate TLVG for one of the above 
control modes. 


9. Calculate economizer approach temperature (EAT). 
If TLVG 125. °F 
TLVG = 125. °F 
EAT = TLVG-DTFNS^ 

If EAT 40. °F 
EAT = 40. °F 
TLVG = EAT + DTFNS^ 
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10. Calculate mixed air conditions. 

Call subroutine MXAIR to simulate the performance of: 

1. Fixed outside and return air dampers. 

2. An enthalpy/temperature type economizer cycle. 


or 


3. A temperature type economizer cycle. 

Subroutine MXAIR also calculates the thermal properties (temperature, 
humidity ratio, and density) of the mixed air stream. 

11. Air handling unit. 

11.1 Single-zone system with face and bypass dampers around 
cooling coil. 

Call subroutine AHU (mode 2) to simulate the functioning of 
this air handling unit. Calculate bypass damper operation, 
heating and cooling coil thermal response (QHC and QCC), effect 
of fan heat, and steam humidifier functioning (WATER). 

11.2 Unit ventilator. 

Heating and the addition of outside air are provided by this 
system type. 

Call subroutine AHU (mode 1) to calculate the functioning of 
the heating coil (QHC) and effect of fan heat. 

11.3 Unit heater. 

Same as unit ventilator, without outside air option. 

11.4 Constant volume reheat fan system. 

Call subroutine AHU (mode 1) to simulate the operation of a 
central system air handling unit. Calculate heating and 
cooling coil operation (QHC and QCC), the effect of fan heat, 
and the addition of steam (WATER) by a humidifier on the dis- 
charge side of the unit. 

11.5 Controls applicable to all system types. 

The heating coil is locked out when the boiler is scheduled off. 
The cooling coil is locked out when the chiller is scheduled off. 
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The humidifier is locked out when the cooling coil is 
functioning. 

12. Calculate reheat coil loads (QT^) and distribute loads not met. 

12.1 Single-zone fan system and constant volume reheat fan systems. 
QT^ = ZMASS^ 0.245 (TLVG^ - TS^) 

If QT^ < 0.0, 

If boiler on. 

Call subroutine ZL03 to calculate and sum reheat coil 
loads and distribute loads not met, if any. 

Go to 13. 

If boiler off, heating load not met. 

QLNM. = QT. 

Update as required the following variables: 

QHLNM. - 
QHPNM. - 
IHHNM^ - 
TS^ = TLVG 

WTLVG. = WSUP (WSUP = supply air humidity ratio. 
' It is calculated in subroutine AHU.) 

If QT^ = 0.0, 

WTLVG. = WSUP 
Go to 13. 

If QT. > 0.0, cooling load not met. 

Call subroutine CCOIL to calculate cooling load not met 
(QLNM.). 

Update as required the following variables: 

QCLNM^ - 
QCPNM. - 
IHCNM^ - 
TS^. = TLVG 
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WTLVG^ = WSUP 
Go to 13. 

12.2 Unit ventilator and unit heat systems. 

QT^ = ZMASS^ * 0.245 * (TLVG^ - TS^) 

If QT. < 0.0, heating load not met. 

QLNM. = QT. 

Update as required the following variables: 

QHLNM^. - 
QHPNM. - 
IHHNM. 

TS^ = TLVG 
WTLVG. = WSUP 
Go to 13. • 

If QT^. > 0.0, cooling load not met. 

QLNM. = QT^ 

Update as required the following variables: 

QCLNM. - 
QCPNM^. - 
IHCNM^ - 
TS. = TLVG 
WTLVG^ = WSUP 
Go to 13. 

13. Calculate zone humidity ratio. 

Using function WZNEW, calculate the humidity ratio of each zone (WZ^.). 

14. Calculate return air humidity ratio and density. 
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2 WZ. * ZMASR. * MULT.. 

j=l , jmax 1 ^ ^ 


2 ZMASR, * MULT. 
j=l J max ^ ' 

PAJM 

(0.754 * (TRA|^+460.)(1. 0+7000. 0*WRA|^/4360.) 
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FANOF 


A subroutine to handle loads for a given hour when a fan system is 
off. This routine should only be called when IFAN =1. 

INPUT 

k : Energy distribution system number. 

Various items held in COMMON (see Table 5.4 for definition of 
variables in COMMON). 

OUTPUT 

100 : Fan operation indicator (0, fan on; 1, fan off). 

QCC : Cooling load (Btu/hr). 

QHC : Heating load (Btu/hr). 

QTRHC ; Reheat coil load (Btu/hr). 

QPHC ; Preheat coil load (Btu/hr). 

TQB : Baseboard radiation load (Btu/hr). 

WATER : Steam humidification supplied at air handling unit 
(lbm-H20/hr). 

BPKW ; Base power (KW). 

TNFBP ; Total net [updated] fan brake horsepower (Bhp). 

Various items held in COMMON. 

CALCULATION SEQUENCE 

1. Check for zero sensible zone load. 

If Z IQS,- 1 to,** 

j=l, jmax 
RETURN. 


**N0TE: There is a corresponding for each i; a relationship defined by 
the variable SPACN^ j. Hence, i and are defined by system num- 
ber (k) and zone number (j). See Para. 5.1 for zone labeling 
organization. 
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If I IQS. I ^0,** 
j=l, jmax 

CONTINUE. 

2. Fan system turned off, distribute loads not met. 

2.1 Initialize general variables. 

QCC = 0. 

QHC = 0. 

WATER =0. 

QTRHC =0. 
qPHC = 0. 

TQB = 0. 

2.2 Zone load distribution. 

2.2.1 Sum base power requirements. 

BPKW = I SLPOW. * MULT. 
j=l, jmax * 

2.2.2 Sum baseboard radiation heat. 

QLNM^ = QS 5 + QLITEji^ 

If boiler on, call subroutine BRAD2 to calculate baseboard 
radiation heat (QB^. ) and adjust QLNM- . 

If boiler off, CONTINUE. 

2.2.3 Distribute sensible load not met (QLNM-). 

If QLNM^. <0.0, heating load not met. 

Update the following variables as required: 

QHLNM. 

QHPNM^ 

IHHNM^ 
qO TO 2.2.4 
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If QLNM^ = 0.0, 

GO TO 2.2,4 

If QLNM^ >0.0, cooling load not met. 

Update the following variables as required: 
qCLNM^ 

QCPNM^ 

IHCNM^ 

GO TO 2.2.4 

2.2.4 Turn off all system fans. 

TNFBP = TNFBP - FBHPS,^ - FBUPR,^ - FBUPE,^ 

100 = 1 . 
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ZL03 


Zone load organizer. A subroutine to calculate terminal unit ther- 
mal loads to reheat and recool tng cotls. These are then checked against 
maximum and minimum leaving coil temperatures. Thermal loads met and un- 
met, positive and negative are broken out and summed. 


INPUT 


IQ 


Coil type index (1 = heating; 2 = cooling). 

AMULT 


Zone multiplication factor. 

TLC 


Desired leaving coil temperature (°F). 

TEC 


Entering coil temperature (°F). 

WEC 


Entering coil humidity ratio (lbm-H20/lbm-dry air). 

TLCMX 


Maximum allowable leaving coil temperature (°F). 

TLCMN 


Minimum allowable leaving coil temperature (°F). 

Variables 

in COMMON. See Table 5.4 for definitions. 

OUTPUT 

WLVG 

* 

• 

Leaving humidity ratio (lbm-H20/l bm-d ry air). 

QTRHC 

« 

« 

System reheat load (Btu/hr). 

QTRCC 

« 

• 

System recooling load (Btu/hr). 


Also, some variables in COMMON. 

CALCULATION SEQUENCE 
1. Heating supplied. 

If TLC > TLCMX, 

TDIF = TLCMX - TLC 
TLC = TLCMX 

QTDIF = ZMAS. * 0.245 * (TDIF - TLC) 
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QLNM^. QTDIF 

Update as required the following variables: 

QHLNM^. 

QHPNM^^ 

QT = ZMAS^. * 0.245 * (TEC - TLC) 

QTRHC = QTRHC + QT * AMULT 
WLVG = WEC 
If TLC ;^TLCMX, 

QT = ZMAS^. * 0.245 * (TEC - TLC) 

QTRHC = QTRHC + QT * AMULT 
WLVG = WEC 
Cooling supplied. 

If TLC < TLCMN, 

Call subroutine CCOIL to calculate cooling load (QCTLC) if TLC 
were allowed to be met. 

Call subroutine CCOIL to calculate cooling load (QT) with TLC 
limited to TLCMN. 

TLC = TLCMN 

QTDIF ^^QCTLC - QT 

QLNM^. = QTDIF 

Update the following variables as required: 

QCLNM^ 

QCPNM^ 

IHCNM. 

QTRCC = QTRCC + QT * AMULT 



If TLC > TLCMN. 

Call subroutine CCOIL to calculate cooling load QT 
QTRCC = QTRCC + QT * AMULT 



BRAD2 


A subroutine to calculate the heat (QB) added to a zone by a base- 
board radiation heating system and to correspondingly adjust the zone's 
base sensible heat load (QS). 


INPUT 

QS - Base sensible heating load (Btu/hr) 

TSP - Set point temperature of zone (°F) 


CBTU 

ALFBR 

TOA 

THWHI 

THWLO 

TOAHI 

TOALO 


OUTPUT 


Heat output of baseboard radiation at standard conditions 
(215°F avg. water temp., 65°F entering air temp.) 
(Btu/hr-11n.ft.) 


Active length baseboard radiation (lln.ft.) 


Dry-bulb temperature outside air (°F) 

U 

o 


(“f) 

(°F) 


cc => 


- < « 
(°F)^^ 

' ' l-S 

(Op)XH. 


THWHI t 

THW 
THWLO 



4 


.•?T(iA 


TOALO TOAHI 
OUTSIDE AIR TEMPERATURE (°F) 


Figure 5.4 Graphic Illustration of baseboard 

hot water temperature reset as function 
of outside air temperature 


QB - Heat given off by baseboard radiation (Btu/hr) 


CALCULATION SEQUENCE 

1. Baseboard heating off. 

If TOA > TOAHI, 

QB = 0. 

2. Baseboard heating on. 

If TOA Ir TOAHI, 

TAIR = TSP - 10. 
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Calculate THW using function TRSET. 


QB => 

3. Adjust QS. 


THW TAIR) 
215. - 65.) 


1.4 


(CBTU *ALFBR) 


QS = QS - QB 
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AHU 


A routine to simulate the performance of air handling units calcu- 
lating thermal requirements of coils, fan heat, and humidifier. 

INPUT 

NAHU : Air handling unit type: 

1) Draw-through unit— heating coil, cooling coil, fan, 
discharge 

2) Draw-through unit— heating coil, cooling coil with 
face and bypass dampers, fan, discharge. 

When heating required, bypass full open and heating 
coil modulates to meet load, cool i no coil off. When 
cooling required, heating coil locked out, cooling 
coil runs wild, dampers modulate to meet required 
dry bulb temperature. 


PATM 


Barometric pressure (in. Hg). 

MFAN 


Fan mass air flow (Ibm-air/hr). 

NVFC 


Fan volume control index (see PTLD). 

PCTLD 


Fan full load fraction. 

DTFAN 


Temperature rise across fan at full load (°F). 

TLVG 


Desired air temperature leaving AHU (°F). 

TCD 


Cold deck temperature (®F). 

H20RD 


Net humidity control zone water requirement. 

MZONE 


Humidity control zone mass air flow (Ibm-air/hr) . 

WZ 


Humidity control zone humidity ratio (lbm-H20/lbm-dry air). 

TMA 


Inlet dry bulb temperature (°F). 

WMA 


Inlet humidity ratio (lbm-H20/lbm-dry air). 

DMA 


Inlet air density (Ibm/ft^). 

OUTPUT 

QCC 

• 

• 

Cooling coil load (Btu/hr). 

SHR 


Sensible heat ratio. 
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QHC : Heating coil load (Btu/hr)» 

WLVG : Humidity ratio entering humidifier section (lbm-H20/lbm-dry air) 

air), 

DLVG : Air density entering humidifier section (Ibm/ft^). 

WSUP : Humidity ratio after humidifier section (lbm-H20/lbm) . 

WATER : Water added to air by humidifier (lbm-H20/hr) . 

CALCULATION SEQUENCE 

1. Simple draw-through unit simulation, 

TLC = TLVG - DTFAN * PTLD * (NVFC, PCTLD) 

If TMA < TLC. 

QHC = MFAN * 0.245 * (TMA - TLC) 

QCC = 0.0 
WLVG = WMA 
SHR = 1.0 
GO TO 3. 

If TMA = TLC, 

QHC = 0.0 
QCC = 0.0 
WLVG = WMA 
SHR = 1.0 
GO TO 3. 

If TMA > TLC, 

Call subroutine CCOIL to calculate WLVG, QCC, and SHR. 

QHC =0.0 
GO TO 3. 
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2. Draw-through unit with bypass around cooling coil. 

TLC - TLVG - DTFAN * PTLD * (NVPC, PCTLD) 

If TMA ^ TLC, 

QHC = MFAN * 0.245 * (TMA - TLC) 

QCC = 0.0 
WLVG = WMA 
SHR = 1.0 
GO TO 3. 

If TMA TLC 
QHC = 0.0 
QCC = 0,0 
WLVG = WMA 
SHR = 1.0 
GO TO 3. 

If TMA > TLC, 

Call subroutine CCOIL to calculate cooling coil performance for 
1. Ibm-air/hr (QCCl). 

Call subroutine MXAIR to calculate position of face and bypass 
dampers (ALFA = portion of air through bypass). 

QCC = MFAN * (1.0 - ALFA) * QCCl 

3. Humidifier simulation. 

Using function DENSY, calculate DLVG. 

If QCC > 0.0 
WATER =0.0 
WSUP = WLVG 
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If Qce £ 0.0, 

WSUP - -H20RD/MZ0NE + WZ 

(Limit WSUP by high limit switch on humidifier set at 80% R.H. 
WATER = -MEAN * (WLVG - WSUP) 
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MXAIR 


A subroutine to calculate the thermal properties of mixed air given 
the properties of the two mixing air streams. The basic application of 
this routine is in simulating the function of three types of outside air 
control . 


INPUT 


MXAO : Type of outside air control. 


Air Stream #1 


Air Stream #2 


1 Fixed percent outside air. 

2 Enthalpy/temperature type economizer cycle 
control . 

3 Temperature type economizer cycle control. 

TOA : Outside air dry bulb temperature (°F) 

DOA : Outside air density (Ibm/ft^) 

HOA : Outside air enthalpy (Btu/lbm) 

WOA : Outside air humidity ratio (lbm-H20/ 

Ibm-dry air) 

PATM ; Barometric pressure (in. Hg) 

TRA : Return air temperature (“F) 

DRA ; Return air density (Ibm/ft^) 

WRA : Return air humidity ratio (lbm-H20/ 

Ibm-dry air) 

EAT ; Desired mixed air temperature (economizer 
approach temperature ) (°F) 

ALFAM : Minimum fraction of outside air (for MXAO 
type 1, ALFAM is the fixed portion of out- 
side air. 


OUTPUT 

ALFA : Actual portion of outside air which meets or approaches EAT. 

TMA : Mixed air dry bulb temperature (°F) 

WMA : Mixed air himidity ratio (lbm-H20/lbm-dry air) 
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OUTPUT (Concluded) 

DMA : Mixed air density (Ibm/ft^) 

CALCULATION SEQUENCE 

1. Using subroutine PSYCH, calculate return air enthalpy (HRA). 

2 . MXAO = 1 (fixed percent outside air) 

ALFA = ALFAM 
GO TO 5. 

3. MXAO = 2 (enthalpy/temperature type economizer cycle control) 

If HOA < HRA, 

Calculate ALFA using subroutine ECONO 
If HOA > HRA, 

ALFA = ALFAM 
GO TO 5. 

4. MXAO = 3 (temperature type economizer cycle control) 

Calculate ALFA using subroutine ECONO. 

GO TO 5. 

5. Mixed air thermal properties. 

TMA = (TOA * DOA * ALFA + TRA * DRA * (1. - ALFA))/(DOA * ALFA 
+ DRA * (1. - ALFA)) 

WMA = (WOA * DOA * ALFA + WRA * DRA * (1 . - ALFA))/(DOA * ALFA 
+ DRA * (1. - ALFA)) 

DMA = PATM/((.754 * (TMA + 460.)) * (1. + (7000. * WMA/4360.))) 
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ECONO 


A subroutine to simulate the operation of a temperature type econo- 
mizer cycle, calculating that portion of outside air yielding a mixed 
air temperature closest to the desired mixed air dry bulb temperature. 

INPUT 

Outside air dry bulb temperature (°F) 

Outside air density (Ibm/ft^) 

Return air dry bulb temperature (®F) 

O 

Return air density (Ibm/ft ) 

Desired mixed air dry bulb temperature (®F) 

Minimum fraction of outside air 

OUTPUT 

ALFA ; Portion of outside air yielding mixed temperature closest 
to desired mixed air temperature 

CALCULATION SEQUENCE 
1. Select appropriate mode. 

Mode 1 . Return air temperature greater than outside air temperature. 
If LVG < OA, ' 

ALFA =1.0 

If LVG > OA, ^ 

If LVG < RA, 

ALFA = (DRA * (RA - LVG))/(RA * DRA - OA * DOA + LVG 
* (DOA - DRA)) 

If LVG > RA, 

ALFA = ALFAM 

GO TO 2. 


DOA 

RA 

ORA 

LVG 

ALFAM 
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Mode 2. Return air temperature equals outside air temperature. 
ALFA = 1 .0 
RETURN 

Mode 3. Return air temperature less than outside air temperature. 
If LVG < RA, 

ALFA - ALFAM 
If LVG > RA, 

If LVG < OA, 

ALFA = (DRA * (RA - LVG))/(RA * DRA - OA * DOA + LVG 
* (DOA - DRA)) 

IfLVG>OA. 

ALFA = 1.0 

GO TO 2. 

2. Check range of ALFA. 

If ALFA < ALFAM, 

ALFA = ALFAM 
If ALFA > 1.0, 

ALFA = 1.0 
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ccoa 


A subroutine to simulate the performance of a cooling coil. It cal- 
culates the sensible and latent heat extracted by a cooling coil assuming 
it to be of adequate capacity. The coil cools air to dry bulb tempera- 
ture (TDBO) and calculates the humidity ratio at that condition. 

INPUT 

MASS ; Rate of air flow through coil (Ibm-air/hr) 

PATM : Barometric pressure (inches Hg.) 

TDBI : Dry bulb temperature of entering air (°F) 

WI : Humidity ratio of entering air (lb-H20/lb-dry air) 

TDBO : Dry bulb temperature of leaving air (°F) 

OUTPUT 

WO : Humidity ratio of leaving air (lb-H20/lb-dry air) 

QCC : Total heat extracted by coil (Btu) 

SHR : Sensible heat ratio 

CALCULATION SEQUENCE 

1. Estimate leaving wet bulb temperature. 

TWBO = TDBO - 1.5 

2. Simulate cooling coil. 

DT = TDBI - TDBO 
If DT <0.0, 

QCC = 0.0 
SHR = 1.0 
WO = WI 
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If DT > 0.0, 

QSC MASS * 0.245 * DT 

Use subroutine PSYl to calculate leaving air humidity 
ratio (WO) 


DW - WI - WO 


If DW <0.0, 

WO = WI 
QCC = QSC 
SHR = 1.0 
If DW > 0.0, 

QLC = MASS * 1090.0 * DW 
QCC = QSC + QLC 
SHR = QSC/QCC 

The functioning of the cooling coil simulation is illustrated 
graphically in Figure 5.5, where it is plotted on an HVAC equip- 
ment manufacturer's psych rometric chart. 

It shows a strong correlation with the manufacturer's published 
cooling coil performance curves and it is also in accord with 
recommendations of Stoecker, et.al, (1973) (ASHRAE Publication 
No. 2290-RP-131 ), recommending cooling coil discharge air condi- 
tions to be 90% RH for simulation purposes when latent heat is 
being extracted. 
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Fig.5.5 Manufacturer's psychrometric chart illustrating the performance of CCOIL. 



TRSET 


A function to calculate TRSET as a linear function of TOA between the 
coordinates (THI, TOALO) and (TLO, TOAHI). TRSET is allowed to float be- 
tween THI and TLO but not to exceed those bounds as illustrated in the 
figure below. 


INPUT 


TOA 

THI 

TLD 

TOAHI 

TOALO 


OUTPUT 


TRSET 



TOALO 


TOAHI 


Figure 5.6 GRAPHIC ILLUSTRATION OF FUNCTION TRSET. 


CALCULATION SEQUENCE 
If TOA < TOALO, 

TRSET = THI 
If TOA > TOALO, 

If TOA > TOAHI, 

TRSET = TLO 
If TOA < TOAHI, 

TRSET = (THI - (THI - TLO) * (TOA - TOALO))/ (TOAHI - TOALO) 
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PTLD 


A function to calculate the part load power requirement of variable 
volume fans. 

INPUT 

NC : Curve Number 

1 : Variable Speed Motor. 

2 : Inlet Vane Damper 

3 ; Discharge Damper 

PC : Fraction of full load for a volume 

OUTPUT 

PTLD ; Percent part load power 

LIMIT VALUES 

0.20 < PC < 1.10 


CALCULATION SEQUENCE 


1. Variable Speed Motor 


PTLD = 0.0015302776 + PC * (0.0052080574 + PC * (1.1086242 


+ PC * (-0.11635563))) 
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2. Inlet Vane Damper 

PTLD = 0.35071223 + PC * (0.3080535 + PC * (- 0.54137364 + 
PC * (0.87198823))) 

3. Discharge Damper 


PTLD = 0.37073425 + PC * (0.97250253 + PC * (- 0 . 34240761 )) 



Figure 5.7 POWER SAVINGS VS AIR QUANTITY REDUCTION FOR 
THREE COMMON METHODS OF CONTROLLING DUCT 
STATIC PRESSURES 
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TEMP 


A subroutine to calculate the dry bulb air temperature of air leav- 
ing an air handler and/or indicate the mode (heating or cooling) of pro- 
cess water in a two-pipe distribution system. 


INPUT 

ICO : Type of control option selected: 

1) Fixed or predefined (constant). 

2) Determined by room with coldest supply air require- 
ment. 

3) Reset as inverse function of outside air dry bulb 
temperature. 

4) Reset as direct function of outside air dry bulb 
temperature to a maximum, then lower to a minimum 
(spike). For two-pipe induction units with water- 
side changeover. 

5) High/low step function with hysteresis at change- 
over. Used for two-pipe fancoil waterside change- 
over. 

6) Determined by room with warmest supply air require- 
ment. 

K ; Fan system number. 

JMAXK : Number of zones on currently analyzed system. 

TOA : Dry bulb outside air temperature (°F) 

TFIX ; Fixed leaving air temperature for control mode one (°F) 

SPACN(K,J) : Variable which defines zone/Q-distrib. system relation- 

ships. 

TS(I) : Required supply air temperatures to each zone (°F) 

Following variables used for control mode three: 

TLAHI : Highest air temperature leaving AHU (°F) 

TLALO : Lowest air temperature leaving AHU (°F) 

TDBLO : Low ambient DB temperature corresponding to high leav- 

ing AHU temperature (TLAHI) (°F) 

TDBHI : High ambient DB temperature corresponding to low leav- 

ing AHU temperature (TLALO) (°F) 
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TCOFC 


Two-pipe fancoH unit changeover temperature. 


OUTPUT 

TLVQ : Required dry bulb temperature of air leaving air 

handler. 

TOACO : Induction unit changeover temperature. 

IPW : Induction or fancoll unit process water temperature 

indicator: -1 = Hot water available. 

0 = Changeover condition and/or hot and 
chilled water available. 

+1 = Chilled water available. 


CALCULATION SEQUENCE 

1. Fixed or predefined. 

TLVG = TFIX 

2. Determined by room with coldest air requirement. 

Scan applicable TS^ values. Set TLVG equal to lowest TS . . 

3 Reset as Inverse- function of outside air dry bulb temperature 
Use function TRSET to calculate TLVG. 

Input variables: 

TOA 

TLAHI 

TLALO 

TDBHI 

TDBLO 

4. Two-pipe induction unit primary air schedule and process water mode 
Indicator. See INDUC for graph of this TEMP function. 
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If TOACO < TOA, 


If TDBHI < TOA, 

TLVQ = TLALO 
IPW = 1 
TOACO = TDBLO 
If TDBHI > TOA, 

Calculate TLVG using function TRSET. 
IPW = 1 
TOACO = TDBLO 
If TOACO = TOA, 

Calculate TLVG using function TRSET. 

If TOACO < TDBLO, 

TOACO = TDBLO +5.0 
IPW = -1 

If TOACO > TDBLO, 

TOACO = TDBLO 
IPW * -1 
If TOACO > TOA, 

TLVG = TLALO 
TOACO = TDBLO +5.0 
IPW = -1 
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5. Two-pipe fancoil waterside changeover. Based on changeover temper- 
ature with (+) or (-) 2,5®F Ug. 

If TOA -<! TOACO, 

If TOACO > TCOPC 
IPW = -1 

If TOACO 1 TCOFC : , . 

TOACO = TCOFC +2.5 
IPW = 0 ; 

If TOA " TOACO, 

If TOACO £ TCOFC 

TOACO = TCOFC + 2,5 
IPW = 0 

If TOA > TCOFC, 

TOACO = TCOFC - 2.5 
IPW = 0 

If TOA > TOACO, 

If TOACO ^ TCOFC 

TOACO = TCOFC - 2.5 
IPW = 0 

If TOACO < TCOFC 
IPW = +1 

6. Determined by room with warmest supply air requirement. 

Scan applicable TS^. values. Set TLVG equal to largest TS^. 
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PSYCH 


A subroutine for calculating the psychrometric properties of moist 

air. 

INPUT 

T ; Dry-bulb temperature of moist air (®F) 

W : Humidity ratio of moist air (lb water/lb dry air) 

PATH : Barometric pressure (inches of mercury) 

OUTPUT 

DEN : Density of moist air (lb dry air/cu ft) 

H : Enthalpy of moist air (Btu/lb dry air) 

CALCULATION SEQUENCE 

1. Calculate enthalpy. 

H = 0.24 * T + W * (1061.0 + 0.444 * T) 

2. Calculate specific volume. 

V = 0.754 * (T + 459.688) * (1.0 + 7000.0 * W/4360.0)/PATM 

3. Calculate specific density. 

DEN = 1.0/V 
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PSYl AND PSY2 


A subroutine which calculates humidity ratio, enthalpy and density 
of outside air. 

INPUT 

DBT 
WBT 
DPT 
PATM 

OUTPUT 

HUMRAT : Humidity ratio (lbs water/lbs dry air) 

ENTH : Enthalpy (Btu/lb dry air)(PSYl only) 

DENS : Density (lbs dry air/cu ft) (PSYl only) 

CALCULATION SEQUENCE 

In the calculation of psychrometric properties of moist air partial 
pressure of water vapor is needed. This is calculated by the PPWVM sub- 
function. 

1. Calculate partial pressure of water vapor in moisture-saturated 
air for WBT and obtain partial pressure of water (applies when 
dewpoint temperature is greater than 32.0 °F). 

PPWV = PPWVM (WBT) - 0.000367 * PATM * (DBT - WBT)/ 

(1.0 + (WBT - 32.0)/1571.0) 

2. HUMRAT = 0.622 * PPWV/(PATM - PPWV) 

3. ENTH = 0.24 * DBT + (1061.0 + 0.444 * DBT) * HUMRAT 

4. DENS = 1.0/(0.754 * (DBT + 460.0) * (1.0 + 7000.0 * HUMRAT/ 

4360.0) /PATM) 


Outside air dry-bulb temperature (°F) 
Outside air wet-bulb temperatjre (°F) 
Outside air dew point temperature (°F) 
Atmospheric pressure (inches of mercury) 
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PPWVM 


A function which calculates the partial pressure of water in 
moisture-saturated air. 


INPUT 

TEMP : may be a wet-bulb, dry-bulb, or dewpoint temperature (°p) 
OUTPUT 

PPWVM : partial pressure of water in moisture-saturated air 

(in. Hg) 


CALCULATION SEQUENCE 

1. Let A(l) = -7.90298 

A(2) = 5.02808 

A(3) = -1.3816 E-7 
A(4) = 11.344 
A(5) = 8.1328 E-3 
A(6) = -3.49149 

2. Let T = (t + 459.688)/!. 8 

If T is less than 273.16, go to 3. 

Otherwise 

z = 373.16/T 
PI = A(l) * (z-1) 

P2 = A(2) * LoglO (z) 

P3 = A(3) * (10 ** (A(4) * (l-l/z))-l) 

P4 = A(5) * (10 ** (A(6) * (z-l))-l) 

Go to 4. 

3. Let z = 273.16/T 

PI = B(l) * (x-1) 

P2 = B(2) * LoglO (z) 

P3 = B(3) * (1-1/z) 

P4 = Log 10 (B(4)) 

4. PVS = 29.921 * 10 ** (PI + P2 + P3 + P4) 


B(l) = -9.09718 
B(2) = -3.56654 
B(3) = 0.876793 
B(4) = 0.0060273 
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HUM! 

A subroutine to calculate the humidity ratio (Ib-H^O/lb-dry air) of air 

given 

T - dry-bulb temperature (°F) 

RH - relative humidity {%) 

PATM - barometric pressure (in. Hg.) 

1. Using subroutine PSY2, calculate humidity ratio of saturated 
air (WSAT) at temperature, T. 

2. Humidity ratio (W) = RH * 0.01 * WSAT 


DENSY 

A function to calculate the density of moist air (Ib-air/cu.ft.) 

given 

T - dry-bulb temperature (°F) 

W - humidity ratio (lb-H20/lb-dry air) 

PATM - barometric pressure (In. Hg.) 

DENSY = 1.0/(0.754 * (T+460.0) * (1.0+7000.0 * W/4360. )/PATM) 
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MAX 


A subroutine to replace current values of A with X and IB with lY 
if the absolute value of X exceeds A. A and X are real numbers. IB 
and lY are integers. 


VARIABLE ORDER 
A, X. IB, lY 

CALCULATION SEQUENCE 

1. If |X| exceeds |A|, 
A = X 
IB = lY 


ERROR 

A subroutine to print terminal and warning messages due to input 
data abnormalities. 


ALOGl 

A function to calculate logaritfuns to base 10. 
Log^O^^^ " 0.434294481 * Log^CX) 
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H20ZN 


A subroutine to calculate hourly moisture changes and net moisture 
requirements. 

INPUT 

QL : Latent load from zone (Btu/hr) 

ZMASS : Mass flow through zone (Ibm-air/hr) 

WSP : Zone humidity ratio set point (lbm-H20/lbm-dry air) 

QLINF : Latent load due to infiltration from load tape (Btu/hr) 

WZON : Current zone humidity ratio {lbm-H20/lbm-dry air) 

WOA : Outside air humidity ratio (lbm-H20/lbm-dry air) 

OUTPUT 

H20AD : Zone water change in current hour (lbm-H20) 

H20RD : Net zone water requirement 

CALCULATION SEQUENCE 

1. Zone load water. 

H20RM = QL/1 090.0 

2. Infiltration water. 

H20IN = (QLINF/1090.0) * (WOA - WZ0N)/((W0A - WSP) 

3. Set point recovery load. 

H20VL = (WZON - WSP) * ZMASS 

4. Summaries. 

H20AD = H20RM + H20IN 

H20RD = H20AD + H20VL 
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WZNEW 


A function to calculate space humidity ratios based on a water bal- 
ance of the following sources: QL moisture, infiltration moisture, sup- 

ply air moisture. 

INPUT 

TSP : Set point tepperature (°F) 

TLC : Supply air temperature (°F) 

WLC : Supply air humidity ratio (lbm-H20/lbm-dry air) 

PATM : Barometric pressure (inches Hg) 

CFMS : Supply air flow rate (ft^/min) 

VOL : Zone volume (ft^) 

H20AD : Zone water change incurrent hour (lbm-H20) 

WZ : Current zone humidity ratio (lbm-H20/lbm-dry air) 

OUTPUT 

WZNEW : New humidity ratio (lbm-H20/lbm-dry air) 

CALCULATION SEQUENCE 

1. Calculate supply air moisture and net moisture to zone. 

Call function DENSY to calculate supply air density (DLVG) 
H20S2 = CFMS * DLVG * 60,0 * (WLC - WZ) 

DH20 = H20S2 + H20AD 

2. Calculate new humidity ratio. 

AIR = CFMS * 60.0 
If AIR < VOL, AIR = VOL 
WZNEW = DH20/(AIR * DLVG) + WZ 
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EQUIP 


A subroutine for calculating the energy consumption of conventional 
heating and cooling systems, on-site generation systems and conventionally 
operated heat conservation systems. 


INPUT 

Ml 

M2 

M3 

M4 

M5 

M6 

M7 

KREHT 

NUMC 

SZC 

NUMAC 

SZAC 

QHBC 

QHBH 

QHBRH 

TECON 

ELDEM 

TLCHL 

TPS 

PPS 

TESTM 

PESTM 


Type of chiller 

Source of chiller energy 

Source of heating energy 

Number of on-site generation engines 

Type of on-site generation engines 

Type of auxiliary chiller 

Source of supplemental heat 

Source of reheat coil energy 

Number of chillers 

Size of chillers (tons) 

Number of auxiliary chillers 
Size of auxiliary chillers (tons) 

Hourly building cooling load (Btu/hr) 

Hourly building heating load (Btu/hr) 

Hourly building reheat load (Btu/hr) 

Entering condensing water temperature (°F) 

Hourly electrical demand of the building (KW) 
Chilled water set point temperature (°F) 
Temperature of high pressure purchased steam (°F) 
Pressure of high-pressure purchased steam (psig) 
Temperature of low pressure steam (°F) 

Pressure of low pressure (psig) 
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Figure 5.8 LOGIC FLOW CHART OF SUBROUTINE EQUIP 
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INPUT (CONT'D) 


-SZT ; 

Size of steam turbines (HP) 

NUMT ; 

Number of steam turbines (rpm) 

RPM : 

Speed of steam turbines (rpm) 

SZE : 

Size of on-site generation engines (KW) 

HVHO : 

Heating value of heating oil (Btu/gal) 

HVDF 

Heating value of diesel fuel (Btu/gal) 

FFLMN : 

Minimum part load cutoff point for chillers (decimal) 

OUTPUT 

GASC ; 

Hourly gas consumption for cooling (therms) 

GASH : 

Hourly gas consumption for heating (therms) 

GASG : 

Hourly gas consumption for on-site generation 
(therms) 

OILC : 

Hourly oil consumption for cooling (gals) 

OILH : 

Hourly oil consumption for heating (gals) 

STMC : 

Hourly steam consumption for cooling (lbs) 

STMH : 

Hourly steam consumption for heating (lbs) 

ELEC : 

Hourly electrical consumption for cooling (KW) 

ELEH : 

Hourly electrical consumption for heating (KW) 

FUEL : 

Hourly diesel fuel consumption for on-site 
generation (gals) 


CALCULATION SEQUENCE 

1. Convert hourly building cooling load into tons. 

QHBC = QHBC/1 2000.0 

2. Calculate the enthalpy of entering and leaving steam (for 
boilers and absorption chillers). 
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3. 


4. 


2.1 For entering condition, use 

AH = 1068.0 - 0.485 * PESTM 

BH = 0.432 + 0.000953 * PESTM 

CH = 0.000036 - 0.000000496 * PESTM 

HESTM = AH + BH * TESTM + CH * TESTM * TESTM 

where HESTM is enthalpy of entering steam (Btu/lb). 

2.2 For leaving conditions, assume saturated water, 
therefore 

HLSTM = 180.07 

where HLSTM is enthalpy of leaving steam (Btu/lb) 

Check the type of building system. 

If M4 =0, then conventional system or conventionally-operated 
heat conservation system. 

Go to calculation 4. 

If M4 > 0, then on-site generation system. 

Go to calculation 8. 

Calculate the number of chillers operating. 

4.1 If the quantity (1.0 - QHBC/(0.9 * NUMC * SZC)) is (+), 
then building system is a conventional system or a 
conventionally-operated heat conservation system with 
no auxiliary chillers needed. 

Set NC = 1 (number of chillers operating). 

Calculate fraction of full load. 


FFL = QHBC/(NC * SZC) 

If necessary, increase NC until FFL ^ 0.9. 

IF NC = 1, and’ FFL < FFLMN, then no cooling available. 
If NC = NUMC, and FFL >1.1, chiller load not met. 

FFL = 1.1 

QRNM = (QHBC - NC * SZC * FFL) * 12 
where QRNM = chiller load not met 


5-117 



QHBC " NC * SZC * FFL 

Update as required the folloving ch.il ler load not 
met variables. 

QRCNM - 

QRPNM - 

IHRNM - 

4.2 If the quantity (1.0 - QHBC/(0.9 * NUMC * SZC)) is (-), 
then building system is a conventionally-operated heat 
conservation system with auxiliary chillers needed. 

Set NAC = 1 (number of auxiliary chillers operating). 

Calculate fraction of full load. 

FFL = QHBC/(NUMC * SZC + NAC * SZAC) 

If necessary, increase NAC until FFL <_0.9. 

5. Calculate the energy consumption required for cooling. 

5.1 If the quantity (1.0 - QHBC/(0.9 * NUMC * SZC)) is (+). 
proceed as follows: 

If Ml =1, (reciprocating chiller), call RECIP, which 
calculates ELEC. 

If Ml = 2, (hermetic centrifugal chiller), call CENT, 
which calculates ELEC. 

If Ml = 3, (open centrifugal chiller), call CENT, 
which calculates ELEC, then adjust as follows: 

ELEC = ELEC/(1.0 + 0.02133 * ELEC/QHBC) 

If Ml =5, (centrifugal chiller powered by steam turbine), 
call CENT, which calculates POWER, then call STTUR, which 
calculates STMC and equivalent heating requirement, QHMC. 

For cases where Ml = 4 or 5, check for source of chiller 
energy. 

If M2 = 1, GASC = QHMC/80000.0 
. STMC = 0.0 
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If M2 - 2, OILC - QHMC/CQ.8 * HVRO) 

STMC - 0.0 

If M2 = 3, STMC = STMC 

If M2 = 4, ELEC = QHMC/3413.0 

STMC = 0.0 

5.2 If the quantity (1.0 - QHBC/(0.9 * NUMC * SZC)) is (-), 
proceed as follows: 

If Ml = 1 , call RECIP, which calculates PWl. 

If Ml = 2, call CENT, which calculates PWl. 

If Ml = 3, call CENT, which calculates PWl, then 
adjust as follows: 

PWl = PWL/(1.0 + 0.02133 * PW1/(FFL * NUMC * SZC)) 


If M6 = 1 , (reciprocating auxiliary chiller), call 
RECIP, which calculates PW2, 

If M6 = 2, (Hermetic centrifugal auxiliary chiller), 
call CENT, which calculates PW2. 

If M6 = 3, (open centrifugal auxiliary chiller), call 
CENT, which calculates PW2, then adjust as follows: 

PW2 = PW2/(1.0 + 0.02133 * PW2/(NAC * SZAC * FFL)) 

Total energy consumption for cooling 

ELEC = PWl + PW2 

6. Calculate the energy consumption required for heating. 

If QHBH > NUMB * SZB * 1000.0, boiler load not met. 

QBNM = QHBH + SZB * NUMB * 1000.0 (QBNM = boiler load not met) 
QHBH = SZB * NUMB * (-1000.0) 

Update as required the following boiler load not met variables: 


5-119 



QBCNM - 
QBPNM - 
IHBNM 

If M3 = 1, (gas-fired boiler), GASH = -QHBH/80000.0 
If M3 = 2, (oil-fired boiler), OILH = -QHBH/(0.8 * HVHO) 

If M3 = 3, (purchased steam heat, STMH = -QHBH/(HESTM-HLSTMO 
If M3 = 4, (electric boiler), ELEH = -QHBH/3413.0 

7. Calculate the energy consumption required for reheat. 

If KREHT = 0, no reheat energy available. 

If KREHT = 1, (heat from gas-fired boiler), 

GASH = GASH - QHBRH/80000 . 0 

If KREHT = 2, (heat from oil-fired boiler), 

OILH = OILH - QHBRH/(0.8 *HVH0) 

If KREHT = 3 , (heat from purchased steam), 

STMH = STMH - QHBRH/(HESTM - HLSTM) 

If KREHT = 4, (heat from electric boiler), 

ELEH = ELEH - QHBRH/3413.0 

END OF CONVENTIONAL ANALYSIS 

BEGIN ON-SITE POWER GENERATION ANALYSIS. 

8. Calculate the number of on-site generation engines in 
operation. 

Set NE = 1 (number of engines operating). 

Calculate fraction of full load. 

FFLE = ELDEM/(NE * SZE) 

If necessary, increase NE until FFLE £ 1.1. 

9. Calculate the energy consumption required for operation of 
engines. 

If M5 = 1, (diesel), FUEL = (8900.0 + 2000.0/FFLE)/HVDF 
If M5 = 2, (gas), GASG = 0.085 + 0.0289/FFLE 
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10. Calculate the amount of engine heat able to be reclaimed. 

If M5 = 1, (diesel ), QEN = (69.2 + 21.2 * FFLE) * ELDEM 

If M5 = 2, (gas), QEN = (60.51 + 16.64/FFLE + 14.0 * FFLE)* ELDEM 

11. Compute the number of chillers operating. 

Set NC = 1 (number of chillers operating). 

Calculate fraction of full load. 

FFL = QHBC/(NC * SZC) 

If necessary, increase NC until FFL < 0.9. 

If NC = 1 , and FFL < FFLMN, then no cooling available. 

If NC = NUMC, and FFL > 1.1, chiller load not met. 

FFL = 1.1 

QRNM = (QHBC - NC * SZC * FFL) * 12 
QHBC = NC * SZC * FFL 

Update as required the following chiller load not met 
variables; 

QRCNM - 

QRPNM - 

IHRNM - 

12. Calculate the energy consumption required for cooling. 

If Ml =1, not applicable. 

If Ml = 2, not applicable. 

If Ml = 3, not applicable. 

If Ml =4, call ABSOR, which calculates STMC and the 
equivalent heating requirement, QHMC. 

If Ml = 5, call CENT, which calculates POWER, then call STTUR, 
which calculates STMC and equivalent heating 
requirement, QHMC. 
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13. Calculate the energy consumption required for heating and 
cooling. 

If -QHBH - QEN + QHMC > NUMB * SZB * 1000.0, boiler load not met 
QBNM = (QHBH + QEN - QHMC) + (NUMB * SZB * 1000.0) 

QHBH = NUMB * SZB * (-1000.0) 

Update as required the following boiler load not met 
variables; 

QBCNM - 

QBPNM - 

IHBNM - 

If M3 “ 1, GASH = (QHMC - QHBH - QEN)/80000.0 
STMC =0.0 

If GASH < 0.0, set GASH = 0.0. 

If M3 = 2, OILH = (QHMC - QHBH - QEN)/ (0.8 * HVHO) 

STMC =0.0 

If OILH < 0.0, set OILH = 0.0. 

14. Compute energy consumption required for reheat. 

If KREHT = 0, not applicable. 

If KREHT = 1, GASH = GASH - QHBRH/80000.0 
If KREHT = 2, not applicable. 

If KREHT = 3, not applicable. 

END OF ON-SITE POWER GENERATION ANALYSIS. 
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STTUR 


A subroutine for calculating the energy consumption of a single 
stage condensing steam turbine as a function of its power output. 


INPUT 

PPS 

TPS 

RPM 

SZT 

NSTON 

POWER 


Pressure of high pressure steam (psig) 

Temperature of high pressure steam (°F) 

Speed of steam turbine (rpm) 

Size of steam turbine, HP (taken as 1 HP/ton) 

Number of steam turbines operating; same as number of 
chillers operating 

Total power output required by all turbines (KW) 


OUTPUT 

STEAM ; Hourly steam consumption (ib/hr) 


CALCULATION SEQUENCE 

1. Find the power output for each turbine (HP) 

POWER = 1.341 * POWER/NSTON 

2. Determine the enthalpy of entering steam (HI). 

HI = AH + BH * TPS + CH * TPS * TPS 
where AH = 1068.0 - 0.485 * PPS 
BH = 0.432 + 0.000953 * PPS 
CH = 0.000036 - 0.000000496 * PPS 

3. Calculate the entropy of steam. 

S = 2.385 - 0.004398 * TSATl + 0.000008146 * TSATl * TSATl 
-0.662 * E-08 * (TSATl ** 3.0) + 2.0 * CH * (TPS-TSATl) 

+ (BH - 920.0 * CH) * AL0G((TPS + 460.0)/(TSATl + 460.0)) 
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where 


TSATl = 1.0/(0.0017887 - 0.00011429 * ALOG (PPS)) - 460.0 

4. Find the temperature of steam after isentropic expansion and 
exhausting at 2 psia (condensing turbine). 

T2 = 1.0/(0.0017887 - 0.00011429 * ALOG (2.0)) - 460.0 

5. Find the enthalpy of leaving steam. 

H2 = 1.0045 * T2 - 32.448 + (T2 + 460.0) * (S - 1.0045 
* ALOG (T2 + 460.0) + 6.2264) 

6. Calculate the theoretical steam rate [Ib/HP-hr). 

TSR = 3413.0/(H1 - H2) 

7. Calculate base steam rate. 

BSR = SLOPE * TSR + B 

where 

BO = 84.0 - 0.017 * SZT + 1.5625 * ( (SZT/1000.0) ** 2.0)) 

B1 = -19.7 + 0.001025 * SZT 
B2 = 1.4 

B = BO + B1 * RPM/1000.0 + B2 * ( (RPM/1000.0) ** 2.0) 

50 = 3.88 - 0.011865 * SZT + 0.1173 * ((SZT/1000.0) ** 2.0) 

51 = -1.1 + 0.000533 * SZT - 0.0581 * ((SZT/1000.0) ** 2.0) 

52 = 0.116 - 0.000057 * SZT + 0.00709 * ((SZT/1000.0) ** 2.0) 

SLOPE = SO + SI * RPM/1000.0 + S2 * ((RPM/1000.0) ** 2.0) 

The base steam rate calculation was made by equation -fitting the 
Elliott YR single stage steam turbine data. 

-8. Calculate the horsepower loss again determined by equation-fit- 
ting the Elliott YT single stage steam turbine catalog data for 
condensing turbine (2 psia). 

HPLSS = 0.0334 * ((RPM/1000.0) ** 2.42) 

* ((SZT/1000.0) ** 1.47) 
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9. Calculate the superheat correction factor determined by equation- 
fitting the Elliott YR single stage steam turbine catalog data. 

See computer listing of STTUR subroutine for equation of SC. 

10. Determine the full load steam rate Qb/HP-hr). 

FLSR = (BSR/SC) * ((SZT + HPLSS)/SZT) 

11. Determine the part load steam rate for one turbine (Ib/hr). 

STEAM = FLSR * SZT (PLB + PLM * POWER/SZT) 

12. Calculate the total hourly steam consumption (Ib/hr). 

STEAM = STEAM * NSTON 
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CENT 


A subroutine for calculating the energy consumption of an electric 
hermetic centrifugal water chiller as a function of part load. 

INPUT 

QHBC : Hourly building cooling load Ctons) 

TECON : Temperature of entering condenser water (°F) 

TLCHL : Temperature of leaving chilled water (°F) 

FFL : Fraction of full load (decimal) 

OUTPUT 

POWER : Hourly electrical power consumption (kilowatt hours) 

CALCULATION SEQUENCE 

1. Calculate the temperature of leaving condenser water at full 
load. 

TLCON = TECON +10.0 

2. Calculate the full load power per ton. 

POPTN = 0.049 * ALOG (TLCON/TLCHL) * TLCHL ** 0.8 

(This equation was excerpted from personal correspondence 
from R. S. Arnold of Carrier to J. M. Anders of P.O.D.) 

3. Determine the error correction to be applied to above equation 
to make it conform with Carrier catalog data (Model 19C). 

ERROR = 2.4531 - 0.041229 * TLCON - 0.0273842 * TLCHL 

+ 0.000118191 * TLCON * TLCON + 0.00047537 

* TLCHL * TLCON - 0.000197535 * TLCHL * TLCHL 

4. Calculate the full load power per ton. 

POPTN = POPTN - ERROR 
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5. Determine the total hourly part load power consumption. 
POWER = (0.1641/FFL + 0.2543 + 0.73965 * FFL 
- 0.15835 * FFL * FFL) * POPTN * QHBC 


; 



/ 
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RECIP 


A subroutine for calculating the energy consumption of an electric 
hermetic reciprocating water chiller as a function of part load. 

INPUT 

QHBC : Hourly building cooling load (tons) 

TECON : Temperature of entering condenser water (°F) 

TLCHL : Temperature of leaving chilled water (°F) 

FFL : Fraction of full load (decimal) 

OUTPUT 

POWER : Hourly electrical power consumption (kilowatt hours ) 

CALCULATION SEQUENCE 

1. Calculate the power per ton as determined from an equation 
fit of Carrier catalog data (Model 30HR). 

POPTN = (0.3371 + 0.01223 * TECON - 0.009749 * TLCHL) 

* (0.868 + 0.133 * FFL) 

where POPTN has units of kilowatts per ton. 

2. Determine total hourly power consumption. 

POWER = POPTN * QBHC 
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ABSOR 


A subroutine for calculating the energy consumption of a steam ab- 
sorption water chiller. 


Hourly building cooling load (tons) 

Temperature of entering condenser water (°F) 

Temperature of leaving chilled water (°F) 

Chilled water temperature drop at full load (°F)(set 
equal to 10°F in program) 

I 

Fraction of full load (decimal) 

Pressure of low pressure steam (psig) 


Hourly steam consumption (ibs/hr) ' 

I 

I 

CALCULATION SEQUENCE (CARRIER 16HA) I 

1. Determine the capacity factor which adjusts nominal capacity 
for operation at conditions other than the standard of 12 psig 
inlet steam, 85°F entering condenser water and 44°F leaving 
chilled water. 

RAT = -2.8246 + 0.06575 * TECON - 0.06011 * PESTM 
+ 0.06433 * TLCHL + 0.0011862 * TECON * PESTM 
+ 0.00023232 * TECON * TLCHL + 0.00025421 * PESTM 

* TLCHL - 0.0006438 * TECON * TECON - 0.0015887 

* PESTM * PESTM - 0.0006199 * TLCHL * TLCHL 

2. Find the capacity factor which adjusts for chilled water tem- 
perature drop other than 10°F. 

CMULT = 0.9190 + 0.010333 * TDROP - 0.0002222 * TDROP 
* TDROP 


INPUT 

QHBC : 
TECON : 
TLCHL : 
TDROP : 

FFL : 
PESTM : 

OUTPUT 

STEAM : 
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3. Calculate the total capacity factor. 

RAT = 0.91 * CMULT * RAT 
where 0.91 is fouling factor. 

4. Calculate the full load steam rate (Ib/hr-ton). 

SRATE = 22.169 + 0.592 * PESTM - 0.0196 * PESJM * PESTM 
- 6.9384 * RAT 

5. Determine the part load steam consumption. 

STEAM = SRATE * (0.0136/FFL + 0.7928 + 0.11843 * FFL 
+ 0.0752 * FFL * FFL) * QHBC 
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SNOWM 


A subroutine for calculating the heat required to melt snow. 


INPUT 

T0A 
MOA 
PATH 
VUIND : 
SAREA : 
SNOM 

OUTPUT 

QTOT : 


Dry-bulb temperature of outside air C“F) 

Humidity ratio of outside air (lb water/lb dry air) 
Barometric pressure (inches of mercury) 

Wind velocity (mph) 

Snow-melting slab area (sq ft) 

Inches of snow water equivalent (inches) 

I 

1 

i 

Total hourly heating requirement of snow-melting system 
(Btu/hr ) 


CALCULATION SEQUENCE* 1 

1. Partial pressure of water vapor in moist air (inches of mercury) 

VP = (WOA/0.622 * PATM)/(1.0 + WOA/0.622) 

2. Sensible heat required to raise temperature of snow from out- 
side air temperature to melting point (Btu/hr-sq ft) 

QSEN = 2.6 * SNOW * (33.0 - TOA) 

3. Latent heat required to melt snow (Btu/hr-sq ft) 

QLAT = 746.0 * SNOW ^ 

4 . Heat required to evaporate melted snow (Btu/hr-sq ft) 

QEVAP = 1075.0 * (0.0201 * VWIND + 0.055) * (0.185 - VP) 


•For derivation and justification of equations, see "Design of Snow-Melting 
Systems", Heating and Ventilating , April, 1952, by William P. Chapman, and 
1967 ASHME Guide 4hd Data Book , Systems and Equipment Volume, Chapter 67 
entitled "Snow Melting". 
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5. Heat transferred by convection and radiation CBtu/hr-sq ft) 

QCONV = n.4 * (0.0201 * VWIND + 0.055) * (33.0 - TOA) 

6. Determine total heat required (Btu/hr) 

QTOT = (SAREA * (QSEN + QLAT + 0.5 * QEVAP + 0.5 QCONV))/ 
0.7 

where the edge loss factor is 0.3 and the area ratio of snow- 
free area to slab area is 0.5. 
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ENGYG 


A subroutine for printinq the monthly energy consumption summary. 


INPUT 


FAC : 

Name of facility 

CITY : 

Location of facility 

PROJ ; 

Project number 

DATE : 

Date of program run 

ENGR : 

Name of engineer 

ENGY : 

Monthly energy consumptions and demands. A 12 x 2 x 17 
matrix with indices defined as indicated below. 


FIRST SUBSCRIPT: MONTH 


1 January 

2 February 

3 March 

4 April 

5 May 

6 June 

7 July 

8 August 

9 September 

10 October 

1 1 November 

12 December 
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SECOND SUBSCRIPT: MODE OF ENERGY 

1 Demand 

2 Consumption 

THIRD SUBSCRIPT: TYPE OF ENERGY 

1 Maximum monthly heating, demand 

2 Maximum monthly cooling demand 

3, Electric, internal lights and building equipment 
4’ Electric, external lights 

5 Electric heat {boiler and auxiliaries, and hot water 

pumps) 

6 Electric cool (chiller, pumps and cooling tower fan) 

7 Gas heat 

8 Gas cool 

9 Gas generation 

10 Steam heat 

11 Steam cool 

12 Oil heat 

13 Oil cool 

14 Diesel fuel generation 

15 Not used 

16 Not used 

17 City water 

18 Fans 

OUTPUT 

Tabular summary of monthly energy consumption. See Figures 6.22 to 
6.25 in the User's Manual. 
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HTCpN 


A subroutine for simulating the performance of heat conservation 
systems. A heat conservation system is one where the refrigeration 
machines have double-bundled condensers. During the sunrier months, the 
system acts as a conventional refrigeration system whereby the building 
heat gains are picked up in the chilled water coils, returned to the 
refrigeration machines, and rejected through condensers and the cooling 
towers to the outside air. During winter months, the refrigeration 
machines act as a heat pump wherein the building internal heat gains are 
picked up by the chilled water coils and returned to the refrigeration 
machines. Then, instead of being rejected to the outside through the 
cooling tower, this heat is redistributed by the hot condenser water 
through the building to those areas that require heating. Supplemental 
heaters are provided in the chilled water return line to provide heat 
when the internal gains are insufficient to offset the heat loss of the 
building at peak heating conditions. 


INPUT 


VARIABLES 

PASSED FROM MAIN ROUTINE: 

Ml 


Type of chiller 

M2 


Source of chiller energy 

M3 


Source of heating energy 

M4 


Number of on-site generation engines 

M5 


Type of on-site generation engines 

M6 


Type of auxiliary chiller 

M7 


Source of supplemental heat 

NUMB 


Heating capacity multiplier 

SZB 


Heat conservation machine heating capacity (MBH) 

NUMC 


Cooling capacity multiplier 

SZC 


Heat conservation machine cooling capacity (tons) 


NOTE: Variables NUMB, SZB, NUMC, and SZC are dual functioning. They 
are redefined in HTC0N as given below. 


5-135 



CI8MM0N INPUT VARIABLES; 

See Table 5.4 for definitions of variables in C0MM0N. 


OUTPUT 

NUMHC 

SZHC 

NUMC 

SZC 

NUMB 

SZB 

CAPH 

CAPC 

SZSCL 

ENGY 


Number of heat conservation machines 
Size of heat conservation machines, tons 
Number of auxiliary chillers (In C0MM0N) 

Size of auxiliary chillers, tons (In C0MM0N) 

Number of boilers (In C0MM0N) 

Size of boilers, MBH (In C0MM0N) 

Total heating capacity, MBH 
Total cooling capacity, tons 

Size of supplementary heating unit in chilled water 
circuit, MBH 

Energy resource peak and consumption matrix 
(See Table 5.3). 


CALCULATION SEQUENCE 

1. Calculate cooling capacity required. 

QCR = NUMC * SZC * 12000 
where QCR has unit of Btu/hr. 

2. Calculate heating capacity required. 

QHR = -1000. * NUMB * SZB 
where QHR has units of MBH. 

The input variable QSNOW should be set equal to 0.0 if snow-melting is 
not to be considered or if snow-melting Is considered, but the engineer 
does not wish to have a snow-melting load added to the capacity of the boil- 
er. If a snow-melting load is to be added to the capacity of the boiler, 
QSNOW can be obtained from the 19p ASHRAE Guide and Data Book , Systems and 
Equipment Volume, Chapter 27, Table 2. 
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3 


Compare peak cooling requirement to the peak heating require- 
ment expressed as equivalent cooling and size heat conserva- 
tion machines based upon the smaller of the two. Assume 1.3 
heat rejection ratio between condenser and evaporator, and a 
0.5 ratio of winter cooling capacity to summer cooling capa- 
city. 

If QCR ^ |QHR/(1.3 * 0.5)1, go to calculation 3.2. 

If QCR < iQHR/(1.3 * 0.5)1, go to calculation 3,1. 

3.1 Size heat conservation machine based upon peak cooling 
load. 

3.1.1 Compute total cooling capacity required. 

CAPC = QCR/1 2000.0 
where CAPC has units of tons. 

3.1.2 Set NUMHC = 2 (number of heat conservation machines). 

SZHC = CAPC * 1.3 * 0.5/NUMHC 

where SZHC is the heat rejected at the condenser 
expressed in tons during winter operation of heat 
conservation machines. 

If necessary, increase NUMHC until SZHC < 600.0. 

3.1.3 Compute heat conservation machine heating capacity 
(MBH). 

CAPH = SZHC * NUMHC * 12000./1000. 

3.1.4 Compute total heating requirements (MBH). 

QHR = NUMB * SZB 

3.1.5 Compute size of boilers required in condenser water 
circuit. This is for supplemental heat. 

SZB = (QHR - CAPH)/NUMB 

where SZB has units of MBH. Note that the defini- 
tions of SZB and NUMB have changed from those at 
entry to HTCpN, The number value of NUMB does not 
change. 
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3.1.6 Compute size of supplementary heat element required 
in chilled water circuit. 

SZSCL = CAPH/1.3 

where SZSCL has units of MBH. 

Go to calculation 4. 

3.2 Size heat conservation itachine based upon peak heating 
load. 

3.2.1 Compute the total heating capacity required. 

CAPH = -QHR/1 000.0 

where CAPH has units of MBH. 

3.2.2 Set NUMHC = 2 (number of heat conservation machines). 

SZHC = CAPH/ (12.0 * NUMHC) 

where SZHC is the heat rejected at the condenser 
expressed in tons during winter operation of heat 
conservation machines. 

If necessary, increase NUMHC until SZHC < 600.0. 

3.2.3 Compute amount of cooling available from heat con- 
servation machines during summer operation, Btu/hr, 

QCA = (SZHC * NUMHC) * 12000.0/(1.3 * 0.5) 

3.2.4 Compute amount of cooling which must be provided 
by auxiliary chillers, Btu/hr. 

QDIFl = OCR - QCA 

3.2.5 Compute size of auxiliary chillers. 

Set NUMC = 1 (number of auxiliary chillers). 

SZC = QDIFl /(1 2000.0 * NUMC) 

where SZC has units of tons. Note that the defini-r 
tions and number values of SZC and NUMC have changed 
from those at HTC0N entry. 
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3.2.6 Compute total cooling capacity. 

CAPC = QCA/ 12000,0 + NUMC * SZC 
where CAPC has units of tons. , 

3.2.7 Compute size of supplementary heating element in 
chilled water circuit, MBH. 

SZSCL = CAPH/1.3 

4. Size all pump water flows. 

4.1 Chilled water flow rate, gpm. 

GPMCL = 2.4 * CAPC 

4.2 Condenser water flow rate, gpm. 

GPMCN = 3.0 * CAPC 

4.3 Boiler water flow rate, gpm. 

GPMBL = CAPH * 1000.0/(500.0 * 20.0) 

4.4 Well water flow rate, if used, gpm. 

GPMWW = SZSCL * 1000.0/(60.0 * 8.3 * 1.0 * 
(TWWIN - TCLMN)) 

5. Size all pump motors assuming pump efficiency of 60%. 

5.1 Chilled water pump horsepower. 

HPCLP = GPMCL * HDCLP/( 3962.0 * 0.6 * EFF) 

5.2 Condenser water pump horsepower. 

HPCNP = GPMCN * HDCNP/ (3962.0 * 0.6 * EFF) 

5.3 Boiler water pump horsepower. 

HPBLP = GPMBL * HDBLP/ (3962.0 * 0.6 * EFF) 

5.4 Well water pump horsepower, 

HPWWP = GPMWW * HDWWP/(3962.0 * 0.6 * EFF) 
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6. Calculate the horsepower requirement for motors running boiler 
auxiliary equipment such as fans, blowers, pumps, etc. From 
American Standard Catalog for packaged boilers ranging in size 
from 20 to 750 horsepower, the auxiliary horsepower require- 
ment was approximately 1/20 of the total boiler horsepower 
capacity. Therefore, 

HPBLA = CAPH * 1000,0/(33472.0 * 20.0) 

7. Size cooling tower fan. 

7.1 Cooling tower air flow requirement, cfm. 

CFMCT = 300.0 * CAPC 

7.2 Cooling tower fan horsepower requirement assuming 1.0 
inch of water total pressure. 

HPCTF = CFMCT * 1.0/(6346.0 * EFF) 

8. Begin hourly energy consumption analysis, repeating calcula- 
tions 9 through 20 for every hour of the year. 

9. Read hourly weather and space load data. See Table 5.2 for 
description of variables. 

10. Calculate wind velocity in units of mph. 

VWIND = 1.151 * VEL 

11. Determine if external lights are ON. 

11.1 If ISUN = 0, set PWEL = 0.0. 

11.2 If ISUN = 1, set PWEL = PWOL. 

12. Check outside air temperature to determine if summer or winter 
operation. 

If TOA ^ TCO, summer operation; therefore, go to calculation 13. 

If TOA < TCO, winter operation; therefore, go to calculation 14. 

13. Summer operation of heat conservation machines. 

13.1 Begin fan system analysis repeating the following calcula- 
tions for each fan system within the building. 
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13.1.1 Check type of fen system. 

If KFAN(K) ■ 1, call RHFS2 • «, call FCflL 

» 2, call HZDO - 9, call FC#1L 

- 3. call NZDD * 10. call INOUC 

- 4. call SZRHT - 11. call INOUC 

- S. call RHFS2 • 12. call VARVL 

« 6. call RHFS2 - 13. call RHFS2 

- 7. call FHTG2 

13.1.2 Keep running total of building cooling, heating, 
and power loads. 


QHBC » 

I 

QFPC,. 


k»1. kmax 

K 

QHBH - 

i 

k«1. kmax 

QFPHj^ ♦ QFPPHj^ ♦ TQB| 

QHBRH > 

I 

QFPRH^ 


k«1. kmax 

K 

PUILN - 

i 

PWLk 


k»1. kmax 

K 


13.2 Calculate hourly energy consumption. Call EQUIP, which 
the following: 

GASC 

6ASH 

GAS6 

OILC 

OILH See subroutines EN6YC for 

.. explanation of these variables. 

STHC 

STMH 

aEC 

ELEH 

S-Hl 



13.3 Go to calculation 15. 

14. Winter operation of heat conservation machines. 

14.1 Begin fan system analysis repeating calculation 14.1.1 

through 14.1.6 for each fan system K. 

14.1.1 Read zone loads from Input tape and form the 
following s.ummatlons: 

QSC-HPOS) * HUtT " 

1 ■ 

QSUMH = QS(L)(pos) * MULT^ 

14.1.2 Calculate supply air temperature required for 
each zone, 

TS(I) = TS(L) - QS(L)/(1.08 * CFM(I))** 

14.1.3 Form the summation. 

SUHCT - (CFM(I)*TS(I))** 

14.1.4 Calculate required leaving-condenser water temper^ 
ature assuming schedule below which Is a function 
of the hourly heating requirement of the building. 

TLCON « TLCNM - 22.5 * (1.0 - QSUHH/QHR) 

14.1.5 Calculate leaving-chilled water temperature 
assuming the schedule shown below. 

50 

TLCHL 

44 



This schedule can be expressed In equation form as: 
TLCHL = 44.0 + (65.0 - T0A)/5.0 



L for each I, a relationship defined by the 
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If TLCHL as calculated by above equation is greater 
than 50°F, set TLCHL = 50.0. 

If TLCHL as calculated by above equation is less 
than 44°F, set TLCHL =44.0. 

14.1.6 Determine the ratio of cold air cfm to total cfm 
circulated by fan system K. Let this ratio be 
called GAMA(K). By definition, therefore, 

where BETA(J) is the fraction of total air flowingg 
through the cold duct to zone J. 

A heat balance around any fan zone J yields 

TS(I) = TCD * BETA(J) + THD(1 - BETA(J)) 

where TS(I) is the zone supply air temperature 
required, °F 

TCD is the temperature of air leaving 
cooling coil, °F 

THD is the temperature of air leaving 
heating coil, °F 

Solving for BETA(J) gives 
PFTAMl - THD - TS(I) 

- THtr--w 

The heating and cooling coils used in heat conser- 
vation systems are deep coils and it is therefore 
assumed that the discharge air temperature ap- 
proaches to within 5°F the entering water tempera- 
ture at maximum air flow. At partial air flow, it 
is further assumed that the discharge air tempera- 
ture varies linearly with the air flow rate through 
the coil. 

The temperature of air leaving the heating coil 
(THD) is then 

THD = TLCON - 5.0 * (1 - GAMA(K)) 
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The temperature of air leaving the cooling coil 
(TCD) is then 

TCD = TLCHL + 5.0 * GAMA(K) 


Substituting the equation for BETA(J), THD and TCD 
into the equation for GAMA(K) results in 


GAMA(K) 


CFMAX(K) * (TLCOM - 5.0) - SUMCT 
CFMAX(K) * (TLCON - TLCHL - 10.0) 


14.2 


where 


SUMCT 



jmaX|^ 


Calculate the quantity 


(CFM(I) * TS(I) * MULT(D) 


SUMGX = (GAMA(K) * CFMAX(K)) for K=1 to KMAX 


14.3 Calculate fraction of total air circulated within building 
that is passing through cooling coils. 

GAMAB = SUMGX/CFMBX 

14.4 Determine a weighted average return air temperature for 
the building. 

TPLB = 75.0 + QL1TB/(1.08 * (CFMBX - CFMEX)) 

14.5 Determine a weighted average cooling coil leaving air 
temperature for building. 

TCDB = TLCHL + 5.0 * GAMAB 

14.6 Calculate a weighted average heating coil leaving air 
temperature for the building. 

THDB = TLCON - 5.0 * (1.0 - GAMAB) 

14.7 Determine the amount of outside air required to create a 
cooling load that will produce the required heating at 
the condenser. 

A heat balance about the building's heating coils, cooling 
coilSj-.and outside air-return air damper systems yields 
the following three equations: 

QHBC = 1.08 * CFMBX * GAMAB * (TMA - TCDB) 

QHBH = 1.08 * CFMBX * (1.0 - GAMAB) * (THDB - TMA) 
. , TMAB = TPLB * (1.0 - ALFA) + TOA * ALFA 
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where 


QHBC Is hourly building cooling load 

QHBH Is hourly building heating load 

TMAB Is mixed air temperature 

ALFA Is fraction of outside air mixing with 
return air 

Since the heat rejection ratio at the condenser of a heat 
conservation machine Is approximately 1.3 times the cool- 
ing load, find the fraction of outside air, ALFA, required 
such that 

QHBH = 1.3* QHBC 

Substituting the equations for QHBC, QHBH, and TMAB Into 
the equation yields 

ALFA = TPLB/(TPLB - TOA) - (THDB * (1.0 - GANAB) 

+ 1.3 * GAMAB * TCDB)/((TPLB - TOA) 

* (1.0 + 0.3 * GAMAB)) 

If ALFA > 1.0, the heating requirement can be obtained 
with 100% outside air; therefore, reset ALFA » 1,0, 

If 0.0 ^ ALFA <. 1.0, the heating requirement can be ob- 
tained with no need for supplementary heat. 

If ALFA < 0.0, supplementary heat Is required; therefore, 
reset ALFA =0.0. 

14.8 Calculate actual building mixed air temperature, **F. 

TMAB = TOA * ALFA + TPLB * (1.0 - ALFA) 

14.9 Calculate actual building heating load, Btu/hr. 

QHBH = 1.08 * CFMBX * (1.0 - GAMAB) * (TMAB - THDB) 

14.10 Calculate any snow-melting load. If applicable, Btu/hr. 

14.10.1 If KSNOW = 0, no snow-melting system. 

Go to calculation 14.11. 

14.10.2 If KSNOW = 1 or 2, snow-melting Is to be considered. 
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14.10.2.1 Calculate amount of snowfall for the 
hour assuming that 1/24 of the day's 
total fell during the hour. 

SNOW = 0.1 * SN0WF(ID)/24.0 

where SNOW has units of equivalent 
inches of water, SNOWF(ID) has units 
of inches of snow, and ID is the day 
nuniber of the year, calculated as 
follows: 

ID = 1 + IHOUR/24 

14.10.2.2 Call SNOWM subroutine which calculates 
QTOT, the now-melting load. 

14.10.2.3 Add QTOT to the heating requirement of 
the building. 

If KSNOW = 1, liquid-type snow-meltingng 
system; therefore, 

QHBH = QHBH - QTOT 

If KSNOW = 2, electric- type snow melt- 
ing system; therefore, 

ELEH = QT0T/3413.0 

14.11 Calculate actual building cooling load, Btu/hr. 

QHBC = 1.08 * CFMBX * GAMAB * (TMAB - TCDB) 

14.12 Calculate energy required to produce the building heating 
and cooling required. 

14.12.1 If IQHBHJ ^ |SZHC * NUMHC * 12000. 0|, supple- 
mentary heat in condenser water line is required. 

14.12.1.1 Calculate condenser water supplemen- 
tary heat requirement, Btu/hr. 

QSHCN = QHBH + CAPHC 

where 

CAPHC = SZHC * NUMHC * 12000.0 


and QHBH is negative 



14.12.1.2 If iQHBCl > |CAPHC/1.3|, then no 
supplementary heating Is required In 
chilled water line; therefore, set 

QSHCL = 0.0 

If iQHBCl < |CAPHC/1.3|, then cal- 
culate supplementary heat required 
in chilled water line, Btu/hr. 

QSHCL = -(CAPHC/1.3 - QHBC) 

14.12.1.3 Heat conservation machines are oper- 
ating at 100% capacity, therefore 

FFL = 1.0 

14.12.1.4 Calculate energy consumption required 
by heat conservation machines. 

For SZHC < 200 tons: 

POWER = QEVAP * (0.3371 + 0.01233 

* TECON - 0.00974 * TLCHL) 

< * (0.868 ♦ 0.0133 * FFL 

/ 

* 16.0) 

/ 

! For SZHC ^ 200 tons: 

POWER = QEVAP * (1.74 - 1.0234 

* FFL + 0.3707 * FFL 

* FFL - 0.010025 * TDIF 

+ 0.000175 * TDIF * TDIF) 

where 

QEVAP = QHBC/1 2000.0 

TECON = TLCON + 16.0 

TDIF = TECON - TLCHL 
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14.12.1.5 Update monthly electric heat energy 
consumption totals. 

ELEH = ELEH + POWER 

Go to calculation 14.13. 

14.12.2 If iQHBHl < |SZHC * NUMHC * 12000.0|, then heat 
conservation machines are operating at part load. 

14.12.2.1 Calculate chilled water supplementary 
heat requirement. 

For IQHBHl > |1.3 * QHBC| . then 

QSHCL = QHBH/1.3 + QHBC 

For IQHBHl £ |1.3 * QHBC| . then 

QSHCL = 0.0 

14.12.2.2 Calculate the number of heat conser- 
vation machines operating. 

Estimated number operating is 

ENHCM = -QHBH/{1.3 * (12000.0 

* 0.9 * SZHC)) 

Round ENHCM up to next whole number 
and set equal to NHCON. 

14.13.2.3 Calculate fraction of full load on 
each machine operating. 

FFL = QEVAP/ ( NHCON * SZHC/ 1.3) 

where QEVAP = QHBC/1 2000.0 + QDIF2 

QDIF2 = (-QHBH/1.3 - QHBC) 

/1 2000.0 
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14.12.2.4 Calculate energy consumption of heat 
conservation machines operating. 

For SZHC < 200 tons: 

POWER = QEVAP * (0.3371 + 0.01223 

* TECON - 0.00974 * TLCHL) 

* (0.868 + 0.133 * FFL 

* 16.0) 

For SZHC ^ 200 tons: 

POWER = QEVAP * (1.74 - 1.0234 * FFL 
+ 0.3707 * FFL * FFL 

- 0.010025 * TDIF + 0.000175 
* TDIF * TDIF) 

14.12.2.5 Calculate condenser heat available 
based upon evaporator load and work 
done. 

QWORK = 0.2844 * POWER 
QCOND = QEVAP + QWORK 

14.12.2.6 Compare actual condenser heat availa- 
ble, QCOND, to that required, QHBH. 

ERROR = 0.5 * ( -QHBH/ 12000.0 

- QCOND) 

If I ERROR 1 > 1 0.005 * SZHC], set 
QDIF2 = QDIF2 + ERROR and return to 
calculation 14.12.2.3 and repeat pro- 
cedure until 

I ERROR I £ 1 0.005 * SZHC| 

14.12.2.7 Check to see if FFL is below FFLMN. 

If FFL ^ FFLMN, then go to calcula- 
tion 14.13. 
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If FFL < FFLMN, heat conservation 
machine not allowed to operate; 
therefore, set 


QSHCL = 0.0 
QHBH = OoO 
QHBC = 0.0 
QHBRH = 0.0 
Go to calculation 14.13. 

14.13 Convert condenser supplementary heat requirement into 
energy requirements. 

If M3 = 1, gas heating; therefore 

GASH = GASH - QSHCN/80000. 0 

If M3 = 2, oil heating; therefore 

OILH = OILH - QSHCN/(0.8 * HVHO) 

If M3 = 3, steam heating; therefore 

STMH = STMH - QSHCN/(HESTM - HLSTM) 

If M3 = 4, electric heating; therefore 

ELEH = ELEH - QSHCN/3413.0 

14.14 Convert chilled water supplementary heat requirement 
into energy requirements. 

If M7 = 1, gas heating source; therefore 

GASH = GASH - QSHCL/80000.0 

If M7 = 2, oil heating source; therefore 

OILH = OILH - QSHCL/(0.8 * HVHO) 

If M7 = 3, electric heating source; therefore 

ELEH = ELEH - QSHCL/3413.0 

If M7 = 4, well water heating source; therefore 

ELEH = ELEH + HPWWP * 0.7457 
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If M7 = 5, city water heating source; therefore 


GALCW = -QSHCL/(8.3 * (TCWIN - TCLHH)) 


15. Update the running totals of the following monthly energy con- 
sumption variables. 


ENGY (M,2,3) 
ENGY (M,2,4) 
ENGY (M.2.5) 
ENGY (M,2,6) 
ENGY (M.2.7) 
ENGY (M.2.10) 
ENGY (M.2,12) 
ENGY (M,2,15) 
ENGY (M,2,16) 
ENGY (M.2J7) 
ENGY (M,2,18) 


See subroutine ENGY for an explana- 
tion of these quantities. 


16. Keep a record of maximum hourly energy demands by checking and 
updating if necessary the following monthly demand variables. 


ENGY 

[M.l 


ENGY 

M.1 


ENGY 

M,1 

.3 

ENGY 

M.l 

.4) 

ENGY 

M,1 

.5 

ENGY 

M.l 

.6 

ENGY 

[M.l 

.7) 

ENGY 

[M.l 

.10 

ENGY 

M.l 

.12 

ENGY 

M.l 

.15 

ENGY 

M.l 

.16 

ENGY 

M.l 

.17 

ENGY (M,l 

.18 


See subroutine ENGY for explanation 
of these quantities. 


END OF HOURLY ANALYSIS 


17. Return command to SYSIM. 
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SECTION 6 

OWNING AND OPERATING COST ANALYSIS PROGRAM 


6.1 OBJECTIVE AND DESCRIPTION 

The Owning and Operating Cost Analysis Program performs a life cycle 
cost analysis for each building heating and cooling system analyzed 
by the System and Equipment Simulation Program. Life cycle costs are 
those expenditures which occur singularly or periodically over the 
life of the building and Includes cost of energy, cost of equipment 
In terms of first costs and replacement costs which occur if the ex- 
pected life of the equipment is less than that of the building, cost 
of maintenance (material and labor), salvage value of equipment at 
end of building life, and opportunity costs for floor space occupied 
by equipment. 

Most of the burden of assembling the cost data required by the 
program is placed upon the user. During these times of escalating 
costs for energy, fuel, material and labor. It is Impractical to 
expect the Owning and Operating Cost Analysis Program to accurately 
and automatically account for these factors. 

6.2 INPUT 


Only the punched card form of input data is required for the Own- 
ing and Operating Cost Analysis Program. Instructions for the pre- 
paration of this data are given in Table 7.1 of User's Manual. 

6.3 OUTPUT 


An owning and operating cost report similar to that shown in Figures 
6.1 through 6.3 is received for each set of input data given to the 
program. Most of the information appearing on this report is simply 
a recap of input data. The real results of the analysis are the 
annuities for each equipment category and for the total HVAC system. 
These annuities are calculated utilizing present worth techniques. 

6.4 MAIN ROUTINE ALGORITHMS 


The calculations performed sequentially by the Owning and Operating 
Cost Analysis Program are summarized below: 

1. Read all card Input data as follows: 

a) FAC - name of facility 

b) CITY - location of facility 
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Figure 6.1 (MNIN6 AND OPERATING COST ANALYSIS PROGRAM OUTPUT REPORT 
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Figure 6.2 OWNING AND OPERATING COST ANALYSIS PROGRAM OUTPUT REPORT 
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Figure 6.3 OWNING AND OPERATING COST ANALYSIS PROGRAM OUTPUT REPORT 



c) ENGR - 

d) PROJ - 

e) DATE - 

f) BL6LF - 

g) RINT - 

h) RINL - 

i) RINM - 

j) RINF - 

k) RINE - 

l ) CELE - 

m) CGAS - 

n) COIL - 

0) CSTM - 

p) CWAT - 

q) CFUL - 

r) CASES - 

For "CASES" 
(lah) . 

s) DESC - 

t) ENCAT - 

For "ENCAT" 
through (Iw) 

u) ETYPE - 


engineer's name 

project number 

date of program run 

building life, years 

annual interest rate, % 

annual increase of labor cost, % 

annual increase of material cost, % 

annual increase of floor space cost, % 

annual increase of energy and fuel cost, % 

unit cost of electricity, $/KW 

unit cost of gas, $/therm 

unit cost of oil, $/gal 

unit cost of steam, $/1000 lbs 

unit cost of water, $/1000 gals 

unit cost of diesel fuel, $/gal 

number of cases or equipment combinations 
to be analyzed 

number of combinations, repeat (Is) through 

system description label 
number of energy categories 

number of energy categories, repeat (lu) 

• 

energy type coded as follows: 

1 electricity 

2 gas ; 

3 oil 

4 steam 

5 water 

6 diesel fuel 
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v) ECONS - annual consumption 

w) ENLAB - energy category label 

x) EQCAT - number of equipment categories 

For each of "EQCAT" equipment categories, repeat (ly) 
through (lah). 

y) EQLAB - equipment category label 

z) COST - Installed cost of equipment, $ 

aa) LIFE - expected life of equipment, years 

ab) SV - is resale value to be considered at end of 

building life?, 0 = no, 1 = yes 

ac) OHPD - major overhaul period, years 

ad) AML - estimated annual maintenance labor cost, $ 

ae) AMM - estimated annual maintenance material cost, $ 

af) OHL - estimated major overhaul labor cost, $ 

ag) OHM - estimated major overhaul material cost, $ 

ah) FLR - estimated cost of floor space occupied by 

equipment, $ 

2. Print title page as indicated in Figure 6.1. 

3. Echo constants to be used for all analyses (see Figure 6.2). 

4. Print first part of final report (Figure 6.3) summarizing 
energy cost results. 

a) Print system description label. 

b) For each type of energy J = 1 to 6, and each category 
(I = 1 to ENCAT) entered for each type, calculate and 
print the following: 

• ENLAB(I,N) - energy category label 

t UCOST(J) - unit cost 
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• ECONSCD - energy consumption 

f Total cost of energy for category 
TOTAL = UCOST(J) * ECONS(I) 
f Total consumption of J energy type 
TCONS(J) = E ECONS(I) 

• Total cost of energy type J 

TENGY(J) = Z TOTAL 

• Annuity for energy type J 

AE(J) = PE *((RINT * 100)/(1.0-1.0/(1.0+RINT * 
100) ** BLGLF)) 
where PE the present value is 

PE = Z (TENGY(J) *((1.0 + RINE * 100)/ 

(1,0 + RINT)) ** L) for L = 1 to BLGLF 

c) Grand total cost for all energy consumed 

UA = ZTENG(J) for J = 1 to 6 

d) Grand total annuity for all energy consumed 

UE = Z AE(J) for J = 1 to 6 

5. Print second part of final report (Figure 6.3) summarizing 
equipment cost results. For each equipment category I = 1 
to EQCAT, calculate the following: 

a) Present-value of installed equipment cost 

PC = Z [C0ST(D * ((1.0 + RINM)/(1.0 + RINT)) 

** ((0-1) * LIFE(I))] for 0 = 1 to L 

where L = BLGLF/LIFE(I) + 1 

If salvage value Is considered, adjust the present- 
value, PC, as follows: 

PC = PC-COST(I) * (L-AL)/((1.0+RINT)**BLGLF) 
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where AL = BLQLF/UFEU) 

b) Present-value of floor space cost 

PF = Z[FLR(I) * (Cl.O + RINF)/(1.0 + RINT)) 

** J] for J = 1 to LF 
where LF = BLGLF 

c) Present-value analysis of annual maintenance labor 
cost 

PAML = z[AML(I) * ((1.0 + RINL)/(1.0 + RINT)) ** j] 
for J = 1 to LF 

d) Present-value analysis of annual maintenance material 
cost 

PAMM = Z[AMM(I) * ((1.0 + RINM)/(1.0 + RINT)) ** Jj 
for J = 1 to LF 

e) Present-value analysis of major overhaul labor cost 

POHL = Z[0HL(I) * ((1.0 + RINL)/(1.0 + RINT)) 

** (J * OHPD(I))] for J = 1 to K 
where K = BLGLF/0HPD(I) 

f) Present-value analysis of major overhaul material cost 

POHM = Z[0HM(I) * ((1.0 + RINM)/(1.0 + RINT)) 

** (J * OHPD(I))] for J = 1 to K 

g) Total present-value of system 

P(I) = PC + PF + PAML + PAMM + POHL + POHM 

h) Total owning and operating annuity for equipment I 

A(I) = P(I) * (RINT/(1.0 - 1.0/(1.0 + RINT ** BLGLF)) 

6. Print total owning and operating annuity for entire system. 

TOOA = z A(I) + UE 

7. If there is another system combination to be analyzed, return 
to calculation (4) and repeat calculations 4 through 6 with 
the new set of data. 


6-8 



NOTES AND COMMENTS 


r 


/ 


N-1 



Page Intentionally Left Blank 






NOTES AND COMMENTS 


*u.s 


N-4 

. GOVERNMENT PRINTING OFFICE* 1975 - 635-775/24 


national aeronautics and space administration 
WASHINGTON, D.C. 20546 


OFFICIAL BUSINESS 

PENALTY FOR PRIVATE USE $300 SPECIAL FOURTH-CLASS RATE 

BOOK 


POSTAGE AND FEES PAID 
NATIONAL AERONAUTICS AND 
SPACE ADMINISTRATION 
4B1 



877 001 C1 0 G 750829 S00903DS M 
DEPT OF THE ftlE FORCE 
AF WEAPONS LABOBATOBY 
ATTN: TECHNICAL LIBBABY (SOL) 

KIETLAND AFB NH 87117 


POSTMASTER : 


If Undeliverable (Section 1 
PoKtnl Manual) Do Not Re 


"The aeronautical and space activities of the United States shall be 
conducted so as to contribute . . . to the expansion of human knowl- 
edge of phenomena in the atmosphere and space. The Administration 
shall provide for the widest practicable and appropriate dissemination 
of information concerning its activities and the results thereof.” 

— National Aeronautics and Space Act of 1958 


NASA SCIENTIFIC AND TECHNICAL PUBLICATIONS 


TECHNICAL REPORTS: Scientific and 
technical information considered important, 
complete, and a lasting contribution to existing 
knowledge. 

TECHNICAL NOTES: Information less broad 
in scope but nevertheless of importance as a 
contribution to existing knowledge. 

TECHNICAL MEMORANDUMS: 

Information receiving limited distribution 
because of preliminary data, security classifica- 
tion, or other reasons. Also includes conference 
proceedings with either limited or unlimited 
distribution. 

CONTRACTOR REPORTS: Scientific and 
technical information generated under a NASA 
contract or grant and considered an important 
_ contribution to existing knowledge. 


TECHNICAL TRANSLATIONS: Information 
published in a foreign language considered 
to merit NASA distribution in English. 

SPECIAL PUBLICATIONS: Information 
derived from or of value to NASA activities. 
Publications include final reports of major 
projects, monographs, data compilations, 
handbooks, sourcebooks, and special 
bibliographies. 

TECHNOLOGY UTILIZATION 
PUBLICATIONS: Information on technology 
used by NASA that may be of particular 
interest in commercial and other non-aerospace 
applications. Publications include Tech Briefs, 
Technology Utilization Reports and 
Technology Surveys. 


Details on the availability of these publications may be obtained from: 

SCIENTIFIC AND TECHNICAL INFORMATION OFFICE 

NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 

Washington, D.C. 20546 


